From the editors of 
A.N.A.L.O.G. Computing 


$ 14.95 



COMPENDIUM 



The best ATARI® Home Computer Programs from the first ten issues of A.N. A.L.O.G. Computing Magazine. 













1FFFLDE1 

COMPENDIUM 

lie best ATARI® Home Computer Programs from the first ten issues of A.N.A.L.O.G. Computing Magazine. 


From the editors of 
A.N.A.L.O.G Computing 


A.N.A.L.O.G Magazine Corp. 
Worcester, Massachusetts 





Copyright © 1983 A.N.A.L.O.G. Computing Corp. 
A.N.A.L.O.G. Corp. is in no way affiliated with Atari. 

ATARI and 800 are trademarks of Atari, Inc. 

All rights reserved. 

No part of this publication may be reproduced, in any form or 
by any means, without the prior written permission of the 
publisher. 


Printed in the United States of America 
ISBN 0-914177-00-1 
10 987654321 




Table of Contents 


Introduction. 

Checksum Programs 

C:CHECK. 

D:CHECK2. 

Programming Utilities 

Unleash The Power of Atari’s CPU. 

Console Button Subroutine. 

Trapping Your Atari. 

Bassnotes in BASIC. 

AUDCTLDemo. 

Variable Lister. 

Buncrush . 

Sys/Stat. 

Faster Character Dumps . 

Multiprocessing. 

Graphics 

Graphics 9 GTIA Demo. 

Circle Demo . 

Triangle Demo. 

Atari Symbol Demo. 

Graphics 10 GTIA Demo. 

Moving Players in Basic. 

Using DLls. 

A Graphics Clipping Routine. 

3-D Graphs Made Fast and Easy. 

Sphere Demo. 

Graphic Violence. 

Graphics 11 GTIA Demo. 

Atari 1020 Printer Demo. 

Rainbow Demo. 

Swirl Demo . 

Snowflake Demo. 

Graphics 8 Color Demo. 

Moire Demo. 

Circle Radius Demo. 

Pretty Demo. 

Atari 1020 Printer Demos. 

Disk Utilities 

Disk Files: Using NOTE and POINT. 

Disk Directory Dump. 

Burp!. 

The Black Rabbit 2.0. 

Disk Tool 1, Rev. 3. 

Home Utilities and Education 

Home Energy Consumption Analysis . 

Typing Trainer. 

Entertainment 

Motorcycle Maze Rider. 

Dino Battle. 

Triple Threat Dice. 

Bicycle. 

Color Slot Machine. 

Halls Of The Leprechaun King. 

Stuntman. 

Dungeons and Dragons Character Generator 
Dungeons and Dragons Housekeeping 2 .... 

Thunder Island. 

Maniac! . 

Harvey Wallbanger. 

Fill ‘er Up II . 


Jon A. Bell 


. Tom Hudson 

Istvan Mohos and Tom Hudson 


.Ed Stewart 

.... Jerry White 
Donald B. Wilcox 
.... Jerry White 
.... Jerry White 
. Tony Messinna 
.. Tony Messina 
Robert Hartman 
... Joseph Trem 
... Mark Chasin 


Craig Weiss 


. Jerry White 
Joseph Trem 
Tom Hudson 
Tom Hudson 


Tom Hudson 


Tom Hudson 


Tom Hudson 


.Jerry White 

... Tony Messina 
Charles Bachand 
... Brian Moriarty 
... Tony Messina 


Joseph E. Harb 
. Regena 


.Charles Bachand 

.Art V. Cestaro III 

.Michael A. Ivins 

.Dan Devos 

.Micheal A. Ivins 

Keith Evans and Ted Atkinson 

.Stephen Pogatch 

.Bob Curtin 

.Bob Curtin 

.Craig Patchett 

.Rick Messner 

.Charles Bachand 

. Tom Hudson 


4 


7 

9 


13 

15 

16 
18 

19 

20 
24 

30 

31 
34 


14 

23 

29 

33 

36 

39 

42 

44 

47 

49 

50 

57 

58 
65 
68 

109 

114 

122 

139 

157 

58 


61 

63 

66 

69 

75 


101 

110 


117 

119 

123 

126 

128 

135 

140 

143 

149 

158 

161 

166 

175 

























































PAGE 4 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


Introduction 


Lee Pappas and Mike DesChenes of Worcester, Massachusetts bought their first Atari home com- 
puters in November of 1979. Their first year as Atari owners was spent developing their program¬ 
ming skills, blowing away Zylons, and tearing out their hair because of the lack of support for their 
new machines. Where was the information that they (and thousands of other Atari owners) so 
desperately needed? From the seeds of this frustration, Atari users groups began sprouting up all 
over the country. New Atari owners started pooling their knowledge and linking their collective 
consciousness via bulletin board systems. Nevertheless, there was no dedicated publication for 
their systems, no single source of information that could link Atari owners together. Lee and Mike 
decided to do something about it. 

In November of 1980, they started an Atari-only publication called A.N.A.L.O.G. 400/800 
Magazine. The first issue was only 40 pages long, and had a modest print run of 4000 copies. Grati- 
fyingly, it sold out. Almost three years and 15 issues later, A.N.A.L.O.G Computing has grown to 
over 160 pages, with a world-wide distribution of over 80,000 copies — and no end in sight. 

With the smaller print runs of the earlier issues, we had virtually no returns. Supplies of back 
issues sent out from our editorial offices were quickly exhausted. Reprints were done of issues 2, 3 
and 4. These sold out, too. Compounding the problem was the fact that the newcomers to 
A.N.A.L.O.G. wanted any and all issues previous to the first one they purchased. The later the 
issue, the more back issues they needed. The solution? This book. 

The A.N.A.L.O.G. Compendium is not intended as an all-encompassing primer on Atari pro¬ 
gramming. Although many of the programs included here were originally written as tutorials, it was 
never our intention to publish a textbook. The A.N.A.L.O.G. Compendium is presented solely 
as a collection of programs to benefit those who missed out on our first ten issues. Some of the 
programs here have been revised and improved since they originally appeared in the magazine. 
We have also included several programs never before published. 

Whether you’re interested in utilities, tutorials or games, we hope you enjoy our first book. 


Jon A. Bell 
Managing Editor 

A.N.A.L.O.G. Computing 




CHECKSUM PROGRAMS 


Important! 

All of the programs in The A.N.A.L.O.G. Compendium were listed from working copies of 
the program in order to minimize errors. However, there is a strong possibility of readers mis-typing 
programs, especially when entering lengthy listings. Before you type in any of these programs, it is 
strongly advised that you read pages 7-10. (C:CHECK and D: CHECK 2). These programs will assist 
you in checking for typing errors when entering in programs from The A.N.A.L.O.G. Compen¬ 
dium. 
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C CHECK 


16K Cassette 

by Istvan Mohos and Tom Hudson 


When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. GCHECK will help 
you find such errors very easily. Type in the accom¬ 
panying program and SAVE it. Follow the instruc¬ 
tions below to check GCHECK as you would any 
other program. 

CHECKing your typing. 

1. Type in the program listing from the Com¬ 
pendium. Visually check it for obvious errors 
(missing lines, etc ). 

2. LIST the program to be checked to 
cassette. Use the command: 

LIST "C:” 

3. LOAD CrCHECK and RUN it. 

4. GCHECK will ask you if you want the 
output to go to the screen or printer. Type S for 
screen or P for printer and press RETURN. 

5. C: CHECK will ask for an issue number. 
For the Compendium, type 99 and press RE¬ 
TURN. If you read A.N.A.L.O.G. Comput¬ 
ing Magazine, you can useGCHECK to check 
the programs in each issue. Just type the issue 
number and press RETURN. 

6. Position the tape to the beginning of the 
program to be checked and press PLAY on the 
program recorder. Press RETURN. 

7. CrCHECK will begin reading the program 
from tape and generate a checksum table. This 
data should match the "CHECKSUM DATA” 
printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

10 DATA 34,455,234,22,55,38,93 ,45,114, 

285,633,442,453,23,31,2957 

160 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2302 

310 DATA 65,356,101,25,547 


Sample CrCHECK output: 


10 DATA 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3108 

160 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2302 

310 DATA 65,101,34,208 


Each line of the program being checked has 
its own checksum value. If any characters in the 
line are incorrect, the checksum value will be 
different from the corresponding value in the 
Compendium. The checksum data is set up so that 
there are 15 checksum values in each line with the 
16th value containing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let’s assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with C:CHECK. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the GCHECK 
output, the total is 3108. This means that there is an 
error in the 15 checksum values in this line. Com¬ 
paring the Compendium checksums to the 
GCHECK output, we find that the seventh check¬ 
sum is 244 in the GCHECK data, and should be 93. 
This means that there is an error in the seventh line 
of the program. Note the error and continue 
checking. The rest of the line is correct, so we go on 
to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our GCHECK 
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data matches the total in the Compendium, so we 
can go on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro¬ 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see, 
the total of the line should be 547, but is only 200 in 
the C:CHECK data. Looking at the C:CHECK 
output, you will notice that there is one less check¬ 
sum value (the 356 in the Compendium checksum 
data). This means that the first line in the program 
after line 310 is missing. The last checksum in this 
line is also incorrect. It is a 34 and should be 25. This 
means that the third line after line 310 in the pro¬ 
gram is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Qnce you have noted all errors, type NEW and 
press RETURN. This erases the C:CHECK 
■program. Next, bring the program being checked 
into memory by positioning the tape and typing: 

ENTER "C:” 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
aud ready to run. □ 


330 ? 82;CHKSUM;:TOTAL=TOTAL+CHKSU 
M:GOTO 230 

340 CLOSE 81: IF LINECOUNT = 7. THEM 370 
350 7 1*2; TOTAL 
360 CLOSE tt2 : END 

370 7 "6Q": 7 "Vour typed-in program wa 
s not properJyLISTed to tape." 

380 ? : 7 "Please LIST your program to 
tape, thenRUN ";CHR$C34);"CHECK";CHR$L 
34Jj" again .":CL0SE 82:CLR :END 


CHECKSUM DATA 
(See pgs. 7-10) 

100 DATA 198,759,11,135,191,594,198,80 
6,763,467,931,100,465,572,107,6297 
250 DATA 764,922,11,168,375,783,304,25 
9,534,898,875,136,732,361,7114 


100 REH SEEH3 debugging AID 

BV ISTUAN MOHOS 

110 REH VERSION 2 MODS AND CASSETTE 
120 REH VERSION BV TOM HUDSON 
130 GRAPHICS 0: 7 : 7 "This run will LIS 
T data statements to the screen or 
printer." 

148 7 ; 7 "This DATA is created by eual 
uating each character of a user pro 

gram, LISTed to tape,": 7 

ISO DIM OUTSUJ ,1$ C1281 ,CR$f 1) 

loo 7 "output to Screen or Qrinter";;i 

NPUT 0UT$:IF 0IJT$ < > "5" AND 0IJT$ <> "P" T 
HEN 160 

170 IF 0IIT$ = "S" THEN OPEN #2,8,0,"E:": 
GOTO 280 

180 CLOSE 82: 7 "QREADY PRINTER AND PRE 

ss lannici"; .-input cr$ 

198 TRAP i80;OPEN 82,8,0,"P:" 

200 7 : 7 "ENTER ISSUE NUMBER"TRAP 20 
0: INPUT ISSUE 

210 7 : 7 "READY TAPE AND PRESS [fliiUihT 

;:0PEN 81,4,0,"C:":? : 7 

220 2=0:LINEC0UNT=Z:PLIN=Z:H = 2 

230 TRAP 340: INPUT 81,1$ : LINEC0IJNT = LIN 

EC0UNT+1:LINUM=VAL(TStl.55) 

240 NLCK=NLCK+J:IF NLCK>1 AND NLCK<16 
THEN 290 

250 IF LINEC0UWT=1 THEN 280 
260 ? 82;TOTAL;NICK=J 

270 IF 0UT$="S" THEN PLIN=PLIN+t:IF PL 
IN = 10 THEN 7 "PRESS lltlli TO CONTINUE 
"; ;INPUT CRS:PLIN=0 
288 T0TAL = Z : 7 82;LINUMj" DATA "J 
290 CHKSUM=7;IF ISSUE>9 THEN X = 2 
300 FOR 1=1 TO LENCISJ:PR0DUCT=K*ASCCT 
S f I, IJ J : CHK51JM=CHK5UM+PR0DUCT : X=X + 1 : IF 
X = 4 THEN H=1 

310 NEXT T:CHK5UM=CHK5UM+X*155:X=X+1:I 
F X=4 THFN X=1 

320 CHKSUM=CHKSUM-1000*INTLCHKSUM/100O 
) 


VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 9 


D:CHECK 2 


16K Disk 

by Istvan Mohos and Tom Hudson 


When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. D:CHECK2 will help 
you find such errors very easily. Type in the accom¬ 
panying program and SAVE it. Follow the instruc¬ 
tions below to check D:CHECK2 as you would any 
other program. 

CHECKing your typing. 

1. Type in the program listing from the Com¬ 
pendium. Visually check it for obvious errors 
(missing lines, etc.). 

2. LIST the program to be checked to disk. 
Use the command: 

LIST "D:progname” 

3. LOAD D:CHECK2 and RUN it. 

4. D:CHECK will ask for a filename. Re¬ 
spond: 

D:progname 
and press RETURN. 

5. D:CHECK2 will ask for an issue number. 
For the Compendium, type 99 and press RE¬ 
TURN. If you read A.N.A.L.O.G. Comput¬ 
ing Magazine, you can use D:CHECK2 to 
check the programs in each issue. Just type the 
issue number and press RETURN. 

6. D.-CHECK2 will execute. The screen will 
go black in order to speed up the program. 

7. When D:CHECK2 finishes, it will display 
final instructions. At this time you should type 
NEW and press RETURN. 

8. When D:CHECK2 executed, it created a 
BASIC file on disk called BUG. ENTER it into 
your computer with the command: 

ENTER "D:BUG” 

This file should match the "CHECKSUM 
DATA” printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

18 DATA 34,455,234,22,55,38,93,45,114, 

285,633,442,453,23,31,2957 

168 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2382 

318 DATA 65,356,181,25,547 


Sample "D:BUG” CHECKSUM DATA: 

18 DATA 34.455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3188 

168 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,48,98,9,342,2382 

318 DATA 65,181,34,288 

Each line of the program being checked has its 
own checksum value. If any characters in the line are 
incorrect, the checksum value will be different from 
the corresponding value in the Compendium. The 
checksum data is set up so that there are 15 check¬ 
sum values in each line with the 16th value contain¬ 
ing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let’s assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with D:CHECK2. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the BUG file, the 
total is 3108. This means that there is an error in the 
15 checksum values in this line. Comparing the 
Compendium checksums to the BUG checksums, 
we find that the seventh checksum is 244 in the BUG 
data, and should be 93. This means that there is an 
error in the seventh line of the program. Note the 
error and continue checking. The rest of the line is 
correct, so we go on to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our BUG file 
matches the total in the Compendium, so we can go 
on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro¬ 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see, 
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the total of the line should be 547, but is only 200 in 
the BUG file. Looking at the BUG file, you will 
notice that there is one less checksum value (the 356 
in the Compendium checksum data). This means 
that the first line in the program after line 310 is 
missing. The last checksum in this line is also incor¬ 
rect. It is a 34 and should be 25. This means that the 
third line after line 310 in the program is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Once you have noted all errors, type NEW and 
press RETURN. This erases the D:CHECK2 
program. Next, bring the program being checked 
into memory by typing: 

ENTER "Drprogname” 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. □ 


to REM DEBUGGING DID 

BY TSTUAN M0HOS 

20 REM UERSI0N 2 MODS RV TOM HUDSON 
30 GRAPHICS 0;Y ; t “This run Will LIST 

data statements with the name: ffiTR 
, to the disk." 

do •y ;•» "Thp EUtri data is created by ev 
aluating each character of a user prog 
raw, LISTed to disk,**;'? 

50 DIM FIS (151 


60 CLOSE tti : ^ "ENTER FILENAME" ;: INPUT 

FTS _ 

70 PIK=PEEK(5591:Z=0:REM 

80 y "ENTER ISSUE NUMBER"TRAP 80: 

INPUT ISSUE 

50 TRAP 60 : OPEN ttl,4,0,FlS 
108 ON X GOTO 180,280 

MO ? "6”;Y "DISABLING SCREEN ... ST AND 

BY:FOR 1 = 1 TO 800:NEXT T:P0KE 559, 

Z:REM debug before poking 

170 LINEC0UNT=Z:DTM 15(1261 

130 TRAP 150: INPUT ttl ; IS : LINEC0UNT = LIN 

ECOUNT+1 

140 GOTO 130 


150 CLOSE ttl:0=TNT(LTNECOUNT/151:DTM C 
(LINEC0UNT1,R (01,S$ (51 :IF (LINEC0UNT=Z 
OR IS=""J THEN 530 

160 IF A5C(IS(1,111<48 OR ASC (IS(1,111 
>57 THEN 530 
170 X=1:G0T0 98 

180 RANGE=Z;LINE=Z:FOR 1=1 TO 5:SS(I.I 
1=" ":NEXT I 
190 C0UNT=Z 

200 INPUT ttl;IS:T=1:C0UNT=C0UNT+1 
210 IF IS (T , T1 <> " " THEN SS (T , T1 = IS (T, 
Tl;T=T+1:G0T0 210 
220 LINE=UAL(S$1 

230 R(RANGE1=LINE:RANGE=RANGF+1 

240 TRAP 270;INPUT ttlJlS 

258 C0UNT = C0IJNT + 1 :IF C0IINT = 15 THEN 190 

760 GOTO 240 


270 CLOSE ttl : X = 2 : GOTO 90 
780 FOR 1 = 1 TO LINECOUNT :CHECKSIJM=Z 
290 GET ttl, NUMBER : PR0DIJCT = X*NUMBER : CHE 
CKSUM=CHECKSUM+PROOUCT:X=X+1:IF X=d TH 
EN X=l 

380 IF NUMBER=155 THEN 320 
310 GOTO 790 

320 CHECKSUM=CHECK5UM-1000*1NT(CHECKSU 
M/10001:C(II=CHECK5UM;IF ISSUE>9 THEN 

X=2 


330 NEXT I 

340 CLOSE ttl:OPEN ttl,8,0,"D: BUG" ;LINE= 
R(Z1 :ITEM=Z 


350 C0UNT = 15:T0TAL = Z: IF LINEC0UNT<15 T 

HEN COUNT=LINECOUNT 

360 PRINT ttl:LINE;" DATA 

370 FOR 1=1 TO COUNT:DATUM=C(15*TTEM+I 

1:PRINT ttl;DATUM;:T0TAL=T0TAl+DATU 

M:NEXT I 

380 PRINT ttl;TOTAL 

390 ITEM=ITEM+1:LINECOUNT = LINEC0UNT -15 
:IF LINECOUNT<1 THEN 420 
400 LINE=R(ITEM1 
410 GOTO 350 

420 CLOSE ttl:POKE 559 ,PIK 

430 7 "RQTo check data against pri 

nted data statements, type NEW. Th 

en type:" _ 

440 ? "ENTER " : CHRS (341 : "0 : BUG I:UTH:I^ . 

Type LIST after the 

READY prompt." 

450 ? :? "The line number of each data 
statementcoincides with the first lin 
e of the" 

460 ? "user program which the data sta 
tement evaluates." 

470 ? "Numbers within each data statem 
ent represent consecutiup lines of 

the user program." 

488 "The last numb er i s the total." 
490 7 "Check the number of eac 

h state- ment against the printed ver 
sion;” 

5O0 7 "only in case of a discrepancy c 
heck each number in the data stateme 
nt." 

510 ^ "Make note of the lines containi 
ng the b ugs. T hen ENTER ";CHRS (341;"D: 
yourproq|; A<il:i:i " 

526 7 "to make the rorrprtinns,":END 
530 POKE 559,PIK:? "Ra":Y "Your typed- 
in program was not proper 1yLISTed to d 
isk . " 

540 "Please LIST your program to 

disk, thenRUN ";CHRS(341;”D:CHECK";CHR 
S (341;" again.":CLR :END 




CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 44,815,767,524,686,389,806,850 

,86,721,921,593,591,704,974,9471 

160 DATA 482,125.389,696,567,797,442,5 

61,230,89,717,216,943,541,299,7094 

310 DATA 719,711,741,427.244,435,288,5 

84,553,441,711,499,803,322,515,7993 

460 DATA 246,684,406,232,123,700,480.7 

74,586,4145 



PROGRAMMING UTILITIES 
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UNLEASH THE POWER 
OF ATARI 'S CPU 


by Ed Stewart 


Would you like to get as much as a 30% increase in 
speed from your ATARI 6502 CPU? Would you 
also like to get this benefit without any additional 
capital expense? If your answer is no, you probably 
don’t like apple pie, either. . .but if your answer is 
yes, read on, and I will tell you how to accomplish 
such a feat with one simple BASIC POKE in the right 
place. 

First, a little background information about one 
of the many things going on inside your ATARI 
computer. The particular thing that I want you to 
know about is how display information reaches your 
TV screen. There is a hardware chip called ANTIC 
that has most of the responsibility for seeing that the 
display gets to your TV screen. ANTIC does this by 
operating independently from the main 6502 CPU 
in your computer. ANTIC is, in fact, a primitive 
CPU in its own right. It executes a program which is 
located in RAM, just as the 6502 executes a program 
in RAM or ROM. We can therefore call the ATARI a 
multiprocessing computer, since more than one 
CPU may be active at any time. 

A peculiar and somewhat unfortunate thing hap¬ 
pens when a multiprocessing system such as the 
ATARI is actively executing instructions — both 
CPUs desire access to memory simultaneously. The 
two CPUs cannot both access memory at the same 
time, so one must wait until the other completes its 
access request. This memory access conflict is 
common to all computers containing more than one 
CPU — from micros to macros — and is generally 
not something to be concerned about. 

The ANTIC chip fetches its data from memory 
using a technique called "Direct Memory Access” or 
DMA. Whenever this memory fetch is occurring, 
the 6502 is temporarily halted. DMA is said to be 
"stealing” a portion of the computer’s available 
time, called a cycle. There are 1,789,790 cycles of 
computer time available per second. If DMA had not 
"stolen” that cycle of computer time, the 6502 


would not have been halted and, therefore, would 
have finished its program instructions sooner. It is 
only logical to conclude that the more this DMA ac¬ 
tivity occurs on behalf of the ANTIC chip, the more 
our 6502 will be slowed down. 

The ANTIC chip re-displays the entire TV display 
60 times each second. During this period, many 
computer cycles are stolen from the 6502. During 
each of these 60 times, the ANTIC chip also "inter¬ 
rupts” the 6502 and causes it to perform such tasks 
as updating various software timers and reading 
game controllers (joysticks and paddles). When the 
6502 finishes what it must do in response to the 
ANTIC "interrupt,” it may continue with what it 
was doing previous to being sidetracked by ANTIC. 
You should be getting the picture by now that, al¬ 
though ANTIC is indispensable, it causes a slow¬ 
down in the 6502 CPU. But how much? 

I wrote a simple BASIC program for my ATARI 
800 in an attempt to answer this question. A 
FOR/NEXT loop was executed 100,000 times with 
no intervening statements as follows: 

20 FOR 1=1 TO 100060:NEXT I 

The first thing to measure was how long this loop 
executes with no ANTIC DMA active. A POKE 
559,0 turned DMA off, and the TV screen went 
black. A POKE 559,34 turned DMA back on, and 
the original display was restored. The FOR/NEXT 
loop was executed in graphics modes 0-8 with DMA 
active, and the executive times were observed as 
shown in Table 1. The execution times with DMA 
increased from as little as 10% for graphics 3 to as 
much as 47% for graphics 8. 

It is easy to see that — if you do a lot of number 
crunching and you don’t need the TV screen, soft¬ 
ware timers or game controllers — then turn off the 
ANTIC DMA for a while, and you’ll get your answer 
back sooner. It is also apparent from the chart below 
that your programs will execute faster if you are 
using graphics modes 3, 4, or 5. 
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I hope you have learned a little bit more about the 
ATARI computer and how the ANTIC DMA inter¬ 
feres with the 6502 CPU. You may someday be able 
to leash that latent power within during a computer 

chess tournament, and — when 

someone asks how 

in the world you 

did it — you can 

smile and say, "me 

and my DMA.” 

□ 


GRAPHICS 

EXECUTION 

% INCREASE 

MODE 

SECONDS 

(over no-DMA) 

NO DMA 

148 


GRAPHICS 0 

216 

46 

GRAPHICS 1 

188 

27 

GRAPHICS 2 

186 

26 

GRAPHICS 3 

163 

10 

GRAPHICS 4 

164 

11 

GRAPHICS 5 

167 

13 

GRAPHICS 6 

173 

17 

GRAPHICS 7 

185 

25 

GRAPHICS 8 

218 

47 


Graphics 9 GTIA Demo 


10 REM GRAPHICS 9 GTIA DEMO (OVAL) 

20 REM 

30 GRAPHICS 9 
40 C=0:SETCOLOR 4,C,0 
50 FOR X=0 TO 39 
60 FOR Y=0 TO 95 

70 XH=39-H:YH=95-Y:COLOR INT(SQRCXM»XH 
♦YM*YH)/6.5) 

80 PLOT X,Y 
90 PLOT 79-X,Y 
100 PLOT X.191-Y 
110 PLOT 79-X.191-Y 
120 NEXT Y 
130 NEXT X 

140 C=C+l :IF 015 THEN C=0 
150 SETCOLOR 4,C,0 
160 FOR TIME=1 TO 500:NEXT TIME 
170 GOTO 140 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 602,253,174,886,290,293,938,61 
7,923,418,747,766,767,154,494,0402 
160 DATA 433,716,1149 






VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 15 


CONSOLE BUTTON 
SUBROUTINE 


16K Cassette or Disk 


by Jerry White 


The ATARI BASIC Reference Manual describes 
decimal location 53279 as "Console switches” (bit 
2= Option; bit 1= Select; bit 0= Start. POKE 
53279,0 before reading. 0= switch pressed). 

The would-be BASIC programmer has got to be a 
bit confused after reading the above. In BASIC, you 
normally don’t think about bit settings, and the 
beginner has a long way to go before he or she will 
have to worry about such things. 

The point is that a BASIC PEEK (53279) will tell 
you which console buttons, if any, are pressed. You 
can see how pressing one or more buttons changes 
the value of that location with a one-line program. 
Enter line 10 below, then type RUN and RETURN. 
Watch the screen as you press the various console 
buttons, then press BREAK to abort. 

10 PRINT PEEK(532791:GOTO 10 

Now for a somewhat more useful demonstration, 
enter the CONSOLE BUTTON SUBROUTINE. 
Note that although it is a subroutine, it has been set 
up so that it will run without any additional code. Of 
course, you could access it from your own program 
with a GOTO 30000. 

This routine provides the user with three options. 
It will allow you to RERUN THIS PROGRAM (the 
program currently in RAM), RETURN TO BASIC 
(which is a fancy way to say END), or RUN A 
MENU PROGRAM from diskette. Naturally, you 
could change these options to whatever your own 
program requires. The START button is used to 
execute the option that is currently displayed, using 
inverse video. Pressing the OPTION or SELECT 
buttons will change the previously highlighted op¬ 
tion back to normal video and highlight the next op¬ 
tion. When the desired option is highlighted, the 
START button is used to say "DO IT.” 

Since this is a routine you will modify and include 
in many of your own programs, it should be LISTed 
onto cassette (LIST "C:”) or disk (LIST "D: 
BUTTON. LST,” 30000, 30170). When you 
want to include it as part of your own program 
currently in RAM, ENTER "C”: from cassette or 
ENTER "D: BUTTON. LST” from disk. □ 


0 REM CONSOLE BUTTON SUBROUTINE 

1 REM BY JERRY WHITE 6/5/82 

30000 GRAPHICS 0:POKE 752,l:P0KE 710,4 

8 : POKE 82,2 :P0KE 201,9_ _ 

30010 ? "H44+ Use the Ha»rii:i or 
button to":? :? " highlight your choi 

ce below, then" _ 

30O20 ? :? "1 press the HHAi button." 
:F0R rc=0 TO 8:POKE 53279,ME:NEXT ME:G 
OSUB 30100:SEL=11 
30030 POSITION SEL.SEL:? 


[RERUN THIS P 


30040 BUTTON=PEEK(532793:IF BUTTONS T 
HEN 30040 

30050 GOSUB 30140:IF CH0ICE=6 THEN 301 
10 

3006O SEL=SEL+2:IF SEL>15 THEN SEL=11: 
GOSUB 36100:GOTO 30030 


30070 IF SEL-1 3 THEN GOSUB 38 160:POSIT 
ION 11,SEL:? ■‘ HjjUnCMijMIHfcBB ** = goto 38 
040 

38080 IF SEL-1 5 THEN GOSUB 381 80:POSIT 
ION 11, SEL: ? : GOTO 3 

0040 

30096 GOTO 30040 

38100 POSITION 11,11:? "RERUN THIS PRO 
GRAM":? :? ,"RETURN TO BASIC":? :? ,"R 
UN MENU PROGRAM":RETURN 
30110 TRAP 30600:POKE 2O1,10:IF SEL=15 
THEN ? "H":? :? ,"LOADING MENU":RUN " 
D:MENU":TRAP 40006 

36120 IF SEL=13 THEN GRAPHICS 8:? :? " 
BASIC":? "IS"j:P0KE 752,0:TRAP 40080:E 


ND 

30130 TRAP 48000:RUN 
30140 GOSUB 30170 

30150 CH0ICE=BUTT0N:BUTT0N=PEEK(532793 
:IF BUTTON<>7 THEN 30150 
30160 GOSUB 38170:RETURN 
30178 FOR HE=8 TO 8:P0KE 53279,ME:NEXT 
ME:RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 874,862,472,699,670,842,127,197 
,560,185,623,205,215,413,935,7819 
30130 DATA 746,141,237,526,717,2367 
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TRAPPING YOUR ATARI 


by Donald B. Wilcox 


It is often frustrating to be forced to restart a 
program because an inadvertent error caused the 
program to crash. ATARI BASIC provides a special 
word — TRAP — that often can be used to prevent a 
program from ending before intended. Many errors 
are subject to automatic correction or compensation 
through a little extra effort on the part of the pro¬ 
grammer. 

If you are not yet familiar with the TRAP state¬ 
ment, the following examples show how to use it to 
detect INPUT errors. These occur when the user of a 
program types invalid values into a numeric vari¬ 
able. 

18 IINPUT X 
20 PRINT X 
38 GOTO 18 

In the above listing, typing a non-numeric re¬ 
sponse to the INPUT statement in line 10 (such as 
accidentally pressing return with no number en¬ 
tered) will result in an "ERROR-8 AT LINE 10” 
message. By adding a TRAP statement, this problem 
can be avoided completely. 

18 TRAP 10!INPUT X 
28 PRINT X 
30 GOTO 18 

In the slightly modified exam'ple above, if an input 
error occurs, the TRAP statement will catch the 
error and go back to line 10 to try the INPUT again. 

After perusal of these five examples, you should 
be able to understand how to make your programs 
less vulnerable to errors that prematurely end your 
program. 

Listing 1 — If you mistakenly create a new 
file using a file name that already exists, you will 
destroy the already existing file. No error message 
will warn you of the impending disaster. Listing 
1 will prevent this. 

Listing 2 — If you try to OPEN a non¬ 
existent file, you will get an error message 170 and 


your program will crash. This can be prevented by 
using Listing 2. 

Listing 3 — If you try to input data from 
a disk file beyond the end-of-file, you will get 
an error message 136, and your program will termi¬ 
nate. You may not always know beforehand where 
the file data ends, so an automatic end-of-file trap 
can be programmed easily to prevent the error. List¬ 
ing 3 solves this problem. 

Listing 4 — You forgot to turn on your printer 
or interface unit and get error message #138. 
If you attempt to use the Continue command 
after you turn on the correct unit, your program will 
continue beginning at the line number that follows 
the line that caused the error. Often this can create 
erroneous results (not always detected), because the 
instructions on the line that caused the error may not 
have been executed correctly before the error. 

Listing 5 — You are reading in data with a 
READ statement and you do not want to use an 
end-of-data dummy value as a flag, nor do you want 
to count the entries to determine when all the data 
has been read. Listing 5 demonstrates a simple 
method to prevent error #6 (Out Of Data) from 
prematurely terminating your program. 

Finally, for those of you who are relatively new to 
ATARI BASIC, there are several locations (ad¬ 
dresses) that you may PEEK to find out which error 
occurred and which line caused the error. Location 
195 contains the error number. Locations 186 and 
187 contain the line number where the error 
occurred, low byte, high byte, respectively. To dis¬ 
play this information on your screen, use the fol¬ 
lowing statements: 

10 REM DISPLAY ERROR NUMBER 
28 REM AND LINE NUMBER OF ERROR 
38 PRINT PEEK C1S5J;" AT LINE ";PEEK(i8 
63 +PEEK{1873*256 
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Listing 1. 


100 ? "K":CLR :REM CLEAR SCREEN AND VA 
RIABLES 

110 REM PREVENT ERASURE OF PROGRAM ALR 


EADY STORED ON DISK 

120 DIM ATRAPS (6),AS(124),NAMES (8),FIL 

e$ ties 

130 REM SET UP DISK 5UFFIK 'D: 1 FOR FI 

LE NAME. IOCB IS FILE(DEVICE) NUMBER 

140 FILES="D :": I0CB=2: IN=4: GNU=8 

150 REM GNU=8 IS THE OUTPUT MODE 

160 SET=160: CLOSE ttlOCB:IF ATRAPS="5PR 

UNG" THEN PRINT " FILE NAI« DID NOT PR 

EUIOUSLY EXIST":GOTO 200 

170 TRAP SET:PRINT "ENTER FILE NAME" 

180 INPUT NAMES:FILES(3)=NAMES:ATRAPS= 

"SPRUNG": OPEN ttlOCB,IN,0,FILES 

190 PRINT FILES;" ALREADY EXISTS":? "U 

5E A DIFFERENT NAME":CLOSE ttIOCB:GOTO 

170 

200 OPEN ttlOCB .GNU,O,FILES 

210 PRINT FILES;" OPENED SUCCESSFULLY" 

220 CLOSE ttlOCB 


160 PRINT "ENTER A FILE NAME":PRINT "D 
0 NOT INCLUDE THE 'D: a PREFIX" 

170 INPUT NAMES:FILES(3)-NAMES:REM CON 
CATENATES PREFIX AND FILE NAIC 
180 OPEN ttlOCB,GNU,0,FILES 
190 REN WRITE DATA ONTO FILE. 

200 PRINT ttlOCB;"FIRST" 

210 PRINT ttlOCB;"SECOND" 

220 PRINT ttlOCB;"LAST" 

230 CLOSE ttlOCB:REM IT IS GOOD PRACTIC 
E TO KEEP A FILE CLOSED WHEN NOT USED 
240 REM FAILURE TO PROPERLY CLOSE A FI 
LE CAN CAUSE IT TO BE LOST 
250 REN 

260 REM READY TO READ THE FILE 
270 OPEN ttlOCB,IN,0,FILES 
280 SET=310:TRAP SET 

290 REM READ DATA FROM FILE AND PRINT 
EACH VALUE AS IT IS READ 
300 INPUT ttlOCB,ASSPRINT AS:GOTO 290 
310 PRINT "FINISHED READING FILE SUCCE 
SSFULLY":CLOSE ttlOCB 

320 REM DELETE LINE 280 AND YOU WILL G 
ET AN ERROR MESSAGE 136 (END OF FILE) 






Listing 2. 


100 PRINT "K":CLR :REN CLEAR SCREEN AN 
D VARIABLES 

110 DIM ATRAPS(6),NAMES(5),FILES(8) 

120 REM SET UP DISK SUFFIX FOR FILE NA 
ME. IOCB IF THE FILE(DEVICE) NUMBER. 

IN=4 IS THE INPUT MODE 
130 FILES="D:":I0CB=2:IN=4 
140 REM WRITE ERROR IF TRAP IS SPRUNG. 

IT IS GOOD PRACTICE TO CLOSE FILES T 
0 PREVENT ERROR ttl29 IF YOU LOOP BACK 
150 REM TO A PREVIOUS PART OF YOUR PRO 
GRAM THAT OPENS A FILE. 

160 SET=160:CLOSE ttlOCB 

170 IF ATRAPS="SPRUNG" THEN ? "ERROR 1 
70, FILE ";FILES;" NON-EXISTANT":FOR D 
=1 TO 1000:NEXT D:GOTO 100 
180 REM KEEPS MESSAGE ON SCREEN TENPOR 
ARILY BEFORE RETURNING TO BEGINNING OF 

PROGRAM _ 

190 TRAP SET:PRINT "TYPE IN FILE NAI«" 
:PRINT "DO NOT INCLUDE 'D: 1 PREFIX":IN 
PUT NAMES 

2O0 FILES(3)=NAMES:REM CONCATENATES FI 
LE NAME ONTO DEVICE PREFIX 'D: 1 
210 ATRAPS="SPRUNG" 

220 REM IF THE "OPEN* STATEMENT WORKS, 
WE HAVE A VALID FILE NAME ALREADY STO 
RED ON DISK READY FOR INPUT 
230 OPEN ttlOCB,IN,0,FILES 
240 PRINT "FILE ";FILES;" OPENED SUCCE 
SSFULLY" 

250 CLOSE ttlOCB 


Listing 3. 


100 PRINT "H":CLR :REM CLEAR SCREEN AN 
D VARIABLES _ „„„„ 

110 REM CATCH END-OF-FILE ERROR 

120 DIM ATRAPS(6),AS(124),NAMES(8),FIL 

130 1 FILES="D:":I0CB=2:IN=4:GNU=8 
148 REM 'D:' IS FILE NAME PREFIX. IN= 
4 IS INPUT MODE. GNU-8 IS OUTPUT MODE 
IOCB IS DEVICE(FILE) NUMBER 
150 REM FIRST IE MUST CREATE A FILE AN 
D PUT SOME DATA IN IT BEFORE TRYING TO 
READ THE DATA. 


Listing 4. 


100 PRINT "H":CLR :REM CLEAR SCREEN AN 
D VARIABLES 

110 REM CATCH DEVICE TIMEOUT ERROR tt 1 
38 

120 REM YOU FORGOT TO TURN ON AN INPUT 
OR OUTPUT DEVICE 
130 DIM ATRAPS(6) 

140 SET=140:IF ATRAPS-"CAUGHT" THEN PR 
INT "TURN ON I/O DEVICE" 

150 TRAP SET:ATRAPS="CAUGHT" 

160 LPRINT "PROGRAM RAN SUCCESSFULLY" 
170 REM RUN THIS PROGRAM WITH PRINTER 
TURNED ON AND OFF 

180 REM CHANGE LINE 160 TO USE DISK, I 
NTERFACE, OR SOME OTHET I/O DEVICE 


Listing 5. 


100 PRINT "K":CLR :REM CLEAR SCREEN AN 
D VARIABLES 

110 REM READ DATA AND TRAP OUT-OF-DATA 
ERROR tt6 

120 SET=140:TRAP SET:REM DELETE THIS L 
INE AND ERROR tt6 MILL OCCUR 
130 READ N:PRINT N:GOTO 130 
140 PRINT "FINISHED READING DATA" 

150 DATA 20,4,156,83,12 
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6ASSNOTESIN BASIC 


16K Cassette or Disk 


by Jerry White 


Th ose of you who have written music using 
ATARI BASIC may have noticed that even the 
lowest note available in distortion level 10 is not 
really a low bass note. 

The secret to getting a deep, rich bass note is to use 
distortion level 12. The BASIC program called Bass- 
note will display the notes and pitch numbers for 
two octaves of low bass notes. 

It will also play the deep bass introduction to the 
theme from Barney Miller. While doing this, the 
sound commands used will be displayed on your 
screen.□ 


10 REM BASSNOTE TUTORIAL BY JERRY MBIT 
E 

28 ? 

30 GOSUB 290:GOSUB 190:GOTO 100 
40 SOUND 0,0,0, O :READ PITCH:D=12:V=14: 
SETCOLOR 2,PITCH,0:5OUND 0,PITCH,D,V 
58 POSITION 10,20:? " SOUND 0,"jPITCH 

; , V , ;d; , V , ;v;" ":return 

68 FOR H0LD=1 TO 200:NEXT HOLD:SOUND 0 
,0,0,O:PITCH=0:D=0:0=0:GOSUB 50:RETURN 
78 FOR H0LD=1 TO 50:NEXT HOLD:RETURN 
80 FOR H0LD=1 TO 25:NEXT HOLD:SOUND 0, 
0,0,0:RETURN 


98 DATA 102,90,85,82,75,72,67,67,68,57 

,68,67,75,67,51,60,75,90 

100 FOR TI*E = 1 TO 2:GOSUB 40:G0SUB 60: 


GOSUB 60 

110 GOSUB 40:GOSUB 70:G0SUB 40:GOSUB 7 
0 

120 GOSUB 40:GOSUB 68:G0SUB 68 
130 GOSUB 40:GOSUB 78:G0SUB 40:GOSUB 7 
0 

140 GOSUB 40:GOSUB 60:G0SUB 68 
150 FOR GUARTERN0TE=1 TO 8:G0SUB 40:GO 
SUB 70:NEXT QUARTERNOTE 
160 GOSUB 40:GOSUB 88:GOSUB 40:GOSUB 8 
0 

178 GOSUB 40:GOSUB 80:RESTORE :NEXT TI 
ME 

180 RESTORE :GOSUB 40:GOSUB 60:POKE 75 
2 0:END 

190'? :? PITCH = NOTE":GOSUB 310 
280 ? :? ,, 25=E" , "27=Dtt", "28=D ","30=Ctt 


210 ? "31=C ", "33=B ", "36 = Att", "37=A " 
220 ? "40 = Gtt","42=G ", "45=Ftt", "48 = F " 
230 ? "51 = E ", ,, 55=D8","57 = D ","60=C»" 
240 ? "63=C ","67=B ","72=A»","75=A " 
258 ? "82=G»","85=G ","90=F»","97=F " 
268 ? "102=E":GOSUB 310 

270 ? :? " THE ATARI BASIC SOUND COMM 
AND!" 

280 ? :? "SOUND VOICE,PITCH,DISTORTION 
,VOLUME":GOSUB 310:RETURN 


290 GRAPHICS 0:POKE 752,1:G05UB 310:? 

" THE THEME FROM BARNEY MILLER" 

300 ? :? "BA55NOTES USING SOUND DISTOR 
TION 12":GOSUB 310:RETURN 
310 FOR CTRLR=2 TO 36:? :NEXT CTRL 

R:RETURN 


320 

330 

REM 

REM 

* 

BOOOOtMMXMMMX) 

D=DIST0RTI0N 

OOOtMMMKMMMKX: 

V=U0LUME 

K* 

* 

340 

REM 

* 

GOSUB 

50 FOR 

WHOLE NOTE 

* 

350 

REM 

* 

GOSUB 

70 FOR 

QUARTER NOTE 

* 

360 

REM 

* 

GOSUB 

80 FOR 

EIGHTH NOTE 

* 

370 

REM 

* 

GOSUB 

780 TO 

DRAW A LINE 
HtXWMMMIHOOOtM] 

* 

380 

REM 

m 

!K*)000 

(MMMIOOO 



CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 705,653,272,597,653,822,191,72 

1,617,79,221,55,227,61,557,6431 

168 DATA 242,874,327,262,121,988,40,41 

,32,89,691,764,69,86,692,5318 

310 DATA 45,788,982,780,31,927,705,806 

,5064 
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AUDCTL DEMO 


16 K Cassette or Disk 
by Jerry White 


AUDCTL is an abbreviation for AUDIO 
CONTROL, and a label given to decimal location 
53768. For those interested in reading up on the 
functions of the various sound registers, I strongly 
recommend that you read the SOUND chapter in 
De Re ATARI about three times, and that you try 
the little demonstration routines supplied. 

For those who don’t really care to know why 
things happen, but like to take advantage of the 
amazing range of sound effects that are available 
from BASIC, I submit the following little demo 
program. In a nutshell, POKE commands into deci¬ 
mal locations 53760 through 53767 are used to create 
a full C major chord. To further enhance the 
effect of this program, we slide up to the higher C 
note in line 180. 

At the prompt, you may enter a value which will 
be POKEd into decimal location 53768. Start by 
entering zero, so you can hear the effect with no 
distortion before we begin experimenting. By enter¬ 
ing other values from 1 to 255, you will notice some 
strange sounds coming from your TV speaker. 

There is probably no better way to learn how to 
create sound effects than by trial and error. Flope- 
fully, this little demonstration will provide some 
food for thought. □ 


130 

20 

140 

KEY 

150 

5:? 

160 

170 

180 

150 

200 

210 


IF KEY<>255 OH PEEKC53275J<>7 THEN 
GOTO 120:HEM HHATCHA WANT? PRESSA 

i 

GRAPHICS 0:SETC0L0R 2,5,0:PQKE 82, 
:REM CLEAR SCREEN/LEFT MARGIN=5 
"This program was designed" 
"to deHonstrate the effects" 
"Made possible by altering" 
"the Audio Control Register" 
"at decimal location 53768" 
"($d208) . " : RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 414,518,846,550,678,674,154,76 

3,431,47,265,213,84,763,717,7553 

160 DATA 360,641,576,412,835,355,3187 




10 GOSUB 150:REN AUDCTL DEMO BY JERRY 
WHITE 6/2/82 

28 FOR OFF=0 TO 3:S0UHD OFF,0,6,0:NEXT 
OFF:REM TURN OFF ALL SOUNDS 
30 ? :? "ENTER A NU MBER B ETWEEN 0 AND" 
: ? "255 THEN PRESS l:l*iH:Kr : 

40 POKE 764,255 : TRAP 30:INPUT NUMBER 
50 NUMBER=INT(NUMBER):IF NUMBER<0 OR N 
UMBER!255 THEN 30 

60 POKE 53760,243ZP0KE 53762,81:POKE 5 
3764,56:POKE 53766,121:REM C MAJOR 
70 FOR X=53761 TO 53767 STEP 2:P0KE X, 
162:NEXT X 

80 REM DI5TORTION=10 V0LUME=2 (10*16+2 
-1621 

50 POKE 53768,NUMBER:REM AUDCTL 

100 FOR X=243 TO 60 STEP ~1:P0KE 53760 

,X:NEXT X:REM SLIDE SOUND 

110 ? : ? "PRESS [=E3 TO END":? "PRESS A 

NOTHER KEY TO CONTINUE":POKE 764,255 

120 KEY=PEEK(7641;IF KEY=28 THEN POKE 

82,2:? :? "BASIC":? "IS";:END 
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VARIABLE LISTER 


16K Cassette or Disk 
by Tony Messina 


Have you ever written a program and then tried to 
go back and document all of the variables that were 
used? If you’re one of the elite 10% who are orga¬ 
nized, you probably wrote down all of your variables 
and their meanings as you wrote the program. If 
you’re like the other 90% of us, who write a program 
and then spend several agonizing hours documenting 
it, then help has arrived. 

The following utility was written to help me keep 
track of my variables. It doesn’t tell me what I used 
them for, but it does tell me what I used. This utility 
is just the start of another utility I’m working on (a 
cross reference program). You can run out and spend 
anywhere from $9.00 to $45.00 for any of a multi¬ 
tude of utilities, but I don’t have much money — and 
writing the things myself has taught me more about 
the inner workings of the ATARI than any listing 
could. Let me explain how your ATARI stores vari¬ 
able names. It will help you to understand how and 
why the program works. 

Behind the scenes. 

Within the heart of your ATARI lurks the Vari¬ 
able Name Table. This table contains all of the 
variables used (and, sometimes, not used) by a pro¬ 
gram. How do they get there? Good question. When 
you type in <A=10> for example, the ATARI 
BASIC cartridge takes the "A” and puts it in the first 
available slot of the Variable Name Table. It also 
stores the value of our "A” into the Variable Value 
Table. Sounds simple, so far. . .now enters the curve. 
IN ATARI BASIC, variable names can be up to 128 
characters long. How does the interpreter know 
where one variable name ends and the next one 
begins? What about string variables and dimen¬ 
sioned variables? 

Here’s the scoop. The very last character of each 
variable name is stored in the table as an inverse char¬ 
acter. Our "A” character would actually be stored in 
the name table as an inverse A, since the beginning 


and ending character for the variable is A. If the vari¬ 
able name was "TEST,” then "TES” would be 
stored as normal characters and the last "T” would 
be stored as an inverse "T.” TEST$, a string variable, 
would be stored as "TEST” (normal) and "$” (in¬ 
verse). If a variable has dimensions [e.g., DIM A 
(26)], then the variable is stored as "A” (normal) 
and "(” (inverse). Knowing where the Variable 
Name Table starts, we should be able to go in and 
pick out all the variables in any given program. 

How do we know where to stop? The end of the 
table is denoted by a blank byte following the last 
character of the last variable name. For the purpose 
of our utility, however, we want to stop picking off 
variables when we encounter the first variable of the 
utility program. Armed with this information, let’s 
try our first experiment. 


Listing 1. 


5 REM TYPE A CONTROL COMMA BETWEEN THE 
QUOTES IN LINE 70 TO PRODUCE A HEART 
10 ? CHR$(125):REM *CLEAR SCREEN# 

20 ? "ASCII",“CHAR","ADDRESS":REM # HE 
ADINGS * 

30 AzlO:TESTl=10:DIM B$ tl) , YES C5,5J : RE 
M * SAMPLE UARIABLES * 

40 START-PEEKtl30)+PEEK 1131)#256:REM # 
GET DECIMAL START ADDRESS OF WAR NAME 
TABLE # 

50 ? " ";PEEK(START}," ";CHR${PEEK(STA 
RTJJ," ";START:REM # PRINT ASCII, LETT 
ER AND ADDRESS # 

60 START=START+1:REM # GET NEXT ONE # 
70 IF PEEKCSTART>=ASCt"*"J THEN END :R 
EM * IF BLANK THEN END » 

80 GOTO 50:REM * GO PRINT NEXT CHARACT 
ER * 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 331,1S8,S62,568,625,ISO,352,707 
,538,4463 
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As you can see, the variables for the program itself 
were printed to your screen. This was just a sample 
for the non-believers out there. The variables pre¬ 
sented are representative of all types used by the 
ATARI: regular, string and dimensioned. Another 
thing you will notice is that the variables follow the 
order in which they were typed. Line 30 is the first 
place variables were typed in. If we look at the output 
of our program, we see that the variables follow the 
same order as Line 30: A,TEST1,B$,YES and START. 
The address of each letter is also printed in the last 
column. This will be helpful when we conduct our 
other experiments, so type in this program. 

I hope this little demo illustrated the points I made 
previously. Here is an explanation of how the utility 
operates. 

The program. 

Listing 2 is the utility program. Program flow is as 
follows: 

32500 clears the deck and initializes the util¬ 
ity variables. 32502 clears the screen and out¬ 
puts a message to the printer. 32504 takes the 
contents of the current address and stores it in 
TEMP. A check is then made to see if TEMP is 
an inverse character (i.e., >=128), or if it is a 
blank. If one of the conditions is true, the 
program goes to the subroutine at Line 32514 
to find out what the character is. If neither con¬ 
dition is true, we drop through and store the 
value from TEMP, and store it into the appro¬ 
priate location in VAR$. We are building our 
variable name in VAR$ for output to the prin¬ 
ter. A check is made of the error flag ERRER. If 
set, an asterisk is appended to our variable name 
in VAR$. If clear, then SKIP is checked. If it is 
set ("set” meaning it is equal to 1), then it’s time 
to print our variable name. If clear ("clear” 
meaning it’s equal to zero), we increment the 
current address CURADD, the character count 
CHARCNT and then go back for the next line. 

32514-32522 are the subroutine lines used 
to determine the type of variable. We get here if 
the value in TEMP was an inverse character or a 
blank. If the content of TEMP is an ASCII 
blank, then the program goes to Line 32512, 
prints out some information and stops. If 
TEMP contains an inverse "$,” then we change 
it to a normal "$” (TEMP-128) and GOTO 
32522. If TEMP contains an inverse "(,” then it 
is changed to a normal "(,” and we GOTO 
32522. If all of the above fail, then we assume an 
ASCII number or letter. It is changed to a 
normal character, and a check is made to see if 
the new number falls between 48 and 90. If you 
look in Appendix C of the ATARI manual, you 
see that ASCII 48-90 contains the numbers, 
some other characters and then the letters A-Z. 

If the value in TEMP does not fall between any 


of these values, we have an error, and the error 
flag is set. If everything is okay, line 32522 
increments the number of variables VACNT, 
sets the skip flag SKIP to 1 and returns. 

32524 appends an asterisk to our variable if 
an error occurred, sets ERRER back to 0 and 
returns. 

32526-32528 check what is in the string 
VAR$. If the actual name VAR$ is there, then 
the program ends. If not, then the variable name 
and its address in RAM is printed. The charac¬ 
ter count CHARCNT is cleared (set to zero), 
SKIP is cleared, VAR$ is cleared, and we return 
to build the next variable name. 

32512 prints the start and end address of the 
name table. It also prints out the number of 
variables in the target program. 

How to use it. 

Type the program in exactly as shown in the list¬ 
ing. When you’ve finished, check everything and 
then save it using the LIST"D:VARLST” for disk or 
L1ST"C:” for cassette commands. The reason we use 
LIST rather than CSAVE or SAVE"D:filename” is 
so that we can merge the utility with your target pro¬ 
grams without disturbing anything. Once the pro¬ 
gram is saved, you can load in any BASIC target 
program. By target program, I don’t mean a program 
that has target in it; I mean any program you want to 
obtain a variable listing from, utilizing the utility. 
Once the target program is loaded, use the following 
commands to merge the utility. If you have a cassette, 
cue up the utility and type ENTER"C:” and hit RE¬ 
TURN. After the beep, press the play button, hit 
RETURN again and the program will load. For disk 
users, type in ENTER "D:VARLST”. The program 
will then load from disk. Once the utility is loaded, 
type in (using direct mode) GOTO 32500 and the 
utility will do its thine. 

This utility is set up for output to a printer. If you 
don’t have one, simply replace all LPRINTs with 
PRINTs. Be prepared to hit CONTROL 1 to stop the 
screen listing, so you can copy the variable names. 
Hit CONTROL 1 again to resume output. 

You are probably wondering why I have the 
address printed out. If you don’t want it printed, 
REPLACE Line 32528 with the following: 

32528 LPRINT U0R$ : CHARCNT^O:5KIP = 8:VAR 
Sr" 11 : RETURN 

This will prevent the address from being printed and 
leave you with a clean piece of paper to document 
your program. There is a method to my madness in 
printing the address. 

The method. 

Consider this. . .if we know the address locations 
of our variable names, it would follow that, if we 
POKE different characters into the table, we could 
change our variable names. This is not only true, but 
offers other potential benefits and (if the reader is 
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not careful) problems. Beware!! The following ex¬ 
periments should be tried after reading the following 
paragraph. 

The interpreter does not care about variable 
names, other than when they are initially defined. 
After that, it doesn’t care. Whyl Well, once you 
define a variable, it is assigned a number from 128- 
255. The first variable is assigned 128, the second 
variable is assigned 129, etc.. . .up to 255. In the 
tokenized version of your program, these variable 
number assignments become important, not the 
names. When you list your program, the interpreter 
scans the tokenized form of your program in mem¬ 
ory, and matches all the numbers with KEYWORDS, 
such as GOTO, REM, COLOR, etc. When he hits a 
variable number — 128, for example — he says, 
"Oh. . .This is a variable; its number is 128, but, to 
me, that’s variable number 1. Let me go into the 
Variable Name Table and get the name. Since it’s 
number 1, it is the first name in the table.” Once the 
name is retrieved, it is put up on the display. All of 
this happens in mere microseconds, but that’s what 
your interpreter does. If we happen to change the 
names in the table, the interpreter will blindly go in 
and grab whatever is or isn’t there. He grabs the vari¬ 
able name based on the number, not the name. Re¬ 
member the inverse character at the end of each vari¬ 
able name? Joe Interpreter uses this as a signal to tell 
him when he has gotten the whole thing. Enough 
theory, next experiment. 

Experiment #2. 

Let’s try changing some names. If you haven’t 
done so, type in the short example program at the 
beginning of this article. If you did type it, then load 
it. RUN the program and follow along with me. On 
the screen you should see the variable "A” in in¬ 
verse. Let’s change it to "Z”. In direct mode, type the 
following: 

POKE ADDRESS,ASCt"Z") 

Make sure the "Z” is an inverse "Z.” The address will 
vary with the amount RAM you have and the con¬ 
figuration, so use the address that is on the screen 
(e.g., the address given for variable "A”). Hit RE¬ 
TURN and, when READY appears, LIST the pro¬ 
gram. The former statement "A=10” will magically 
be replaced by "Z=10”! 

Let’s try once more. Let’s change "TEST1” to 
"BLAH1”. First re-RUN the program, then, in 
direct mode, type the following: 

POKE ADDRESS, ASCC"8") :POKE ADDRESS + 1, A 
SC CL") :POKE ADDRESS + 2,A5C("A") :POKE A 
DDRE55+3, ASCf’H") 

("A”):POKE ADDRESS+3,ASC("H”) 

Again, we have the starting address of "TEST1”. 
Since each letter occupies one byte, then "T” begins 
at the address listed in your output; "E” is located at 
the address+1, etc. Since the 1 is already there and in 
inverse, we don’t have to use inverse letters in our 
POKE statements above. Use the regular old every¬ 


day non-inverse letters between the quotes. Hit RE¬ 
TURN and LIST the program. If you did everything 
right, "TEST1” will be replaced by "BLAH1”. Of 
course, we only replaced variable names with those 
that had the same length. For experimenting, use the 
same length name because you can really make a 
mess out of things. If you are adventurous, try any¬ 
thing!! Just remember that the variable names must 
end in an inverse character. 

Experiment #3. 

RUN the program again, then, in direct mode, 
type the following: 

FOR Z=FIRSTADDR TO LA5TADDR:POKE Z,155 
:NEXT Z 

Substitute the appropriate addresses on the screen 
for FIRSTADDR and LASTADDR. When READY 
appears, LIST the program. Surprise! All you see now 
is KEYWORDS. Not a variable in sight! Run the 
program — yes, just type RUN. Surprise 11. It works 
just like normal. Except where the variables once 
were is now filled with empty space. Whahappenedll 

The 155 POKEd into the name table is a non¬ 
printing character. The interpreter picked up the 
name and even printed it on the screen.. .we just 
couldn’t see it. You could do this to that secret pro¬ 
gram of yours and let your friend borrow it. When 
he LISTs it to learn all of your secrets. . . boy, will he 
get a surprise. Try it! I have, and what a ruckus it 
caused. Be sure to save a copy of the original for 
yourself, or you may be the one who is surprised! 

The last experiment. 

For our last trick, try this. First load the program, 
or, if you didn’t save it, type it in again (SAVE it this 
time). Now RUN it. In direct mode, type the follow¬ 
ing: 

FOR A=FIR5TADDR TO LASTADDR:POKE A,A5C 
("V"):NEXT A 

Again use the addresses that are on the screen. When 
READY appears, LIST the program. Check out all of 
the garbage !! I’ll let you figure it out for yourself. 
(Hint — The interpreter searches for inverse charac¬ 
ters.) 

Final notes. 

VARLST will interfere if your target program has 
the same line numbers as the utility. I started at 
32500 as all of my program line numbers fall way 
below that figure. If necessary, change the line num¬ 
bers higher or lower, but remember to change all of 
the GOSUBs and GOTOs. Also, if your target has 
more than 119 variables in it, VARLST will not load. 
I’ve never seen a program with that many variables, 
but it is possible. If you have any variable names 
longer than 30 characters, VARLST will not work.* 
Have fun experimenting! □ 


*Dimension VAR$ larger in this case. 
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Listing 2. 

32500 CLR :DIM UAR$t30):TABLESTART=PEE 
KC130J+PEEK (131J #256 :CURADD=TABLESTART 
:CHARCNT-l:UflCNT-0:ERRER=O:INU=128 
32502 5KIP=0 : ? "IS" : LPRINT "THE FOLLOMI 
MG VARIABLES ARE IM THIS PROGRAM":FOR 
H“1 TO 56:NEXT H 

32504 TEMP^PEEK(CURADDJ:IF TEMP>=INU 0 
R TEMP=ASC("W"J THEM G051IB 32514 
32506 VAR$(CHARCNT,CHARCNTJ=CHRS(TEMPI 
:IF ERRER THEN GOSUB 32524 
32508 IF SKIP THEM GOSUB 32526 
32510 CURADD=CURADD+i:CHARCNT=CHARCNT+ 
1:GOTO 32504 

32512 LPRIMT :LPRINT "TABLESTART= TA 
BLESTARTILPRIMT "TABLE END = ";CURADD- 
4:LPRINT "tt OF UARIABLES= ";VACNT-1 

32513 END 

32514 IF TEMP-ASC("W"I THEN POP :GOTO 
32512 

32516 IF TEMP=ASCC"H"I THEN TEMP=TEMP- 
128:GOTO 32522 

32518 IF TEMP=ASCf"D ,, J THEN TEMP=TEMP~ 
128:GOTO 32522 

32520 TENP=TEMP-128:IF TEMP<48 OR TEMP 
>98 THEN ERRER=1 

32522 UACNT=UACNT+1:SKIP=1:RETURN 
32524 UAR$CCHARCNT+1 j CHARCNT+1J="2":ER 
RER — 0I RETURN 

32526"IF UAR$="UAR$" THEN POP :GOTO 32 
512 

32528 LPRINT UAR$,,," ADDRESS^ "JCURA 
DD-CHARCNT+1:CHARCNT=0:SKIP=0:0AR5="": 
RETURN 




CHECKSUM DATA 
(See pgs. 7-10) 

325O0 DATA 256,390,205,624,952,663,823 
,557,377,141,159,129,984,932,148,7340 
32528 DATA 715,715 


Circle Demo 


10 XC-160:YC=80 
20 RD-60:INC-10:YS=0.75 
30 GRAPHICS 8:COLOR 1 
40 GOSUB 1000:END 

1080 REM - 

1010 REM CIRCLE DRAWER ROUTINE 

102O REM - 

1030 REM 

1040 REM HC: x-coordinate of center 

1050 REM YC: y-coordinate of center 

1O60 REM RD: circle radius 

1070 REM INC: drawing increwent 1-360 

1080 REM ys: y-scaling factor 

1090 REM 

1100 DEG :PLOT XC,YC+RD«YS 
1110 FOR CIRCLE=0 TO 360 STEP INC 
1120 XCOORD=XC+SIN(CIRCLEJ#RD 
1130 YC00RD=YC+C05(CIRCLEJ*RD»YS 
1140 DRAMTO XCOORD,YCOORD 
1150 NEXT CIRCLE.RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 118,981,32,473,165,240,167,278 

,180,184,463,8,40,284,645,4258 

1110 DATA 469,958,422,868,442,3159 
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BUNCRUSH 


16K Cassette or Disk 
by Tony Messina 


In our last episode, we left our hero (Bruno Bit- 
mangier) tearing out his hair, looking for his lost 
energy variable E amidst all the garbage on the TV 
screen. Meanwhile, Bruno Jr. screams, "I wanna 
play Missile Command!” and Mrs. Bitmangler 
shouts, "Both of you get in here. . .DINNER is get- 
ting COLD!” If only our hero had BUNCRUSH, his 
problem would be solved. What’s a BUNCRUSH? 
It’s the BASIC Unembellished No-Cost Cross Ref¬ 
erence Utility and Software Helper. If you want to 
get it up and running, type in Listing 2 and skip to 
the "How to use BUNCRUSH” section. Those of 
you who want to learn a little more about the ATARI 
BASIC token structure and how BUNCRUSH was 
developed should read on. 

Design considerations. 

Several major considerations were involved in 
designing BUNCRUSH. The list I used was as fol¬ 
lows. 

1. ) Build upon the concepts presented in 
Utility #1 — Variable Lister (see page 20) 

2. ) Allow use with both Cassette and Disk 
systems. 

3. ) Allow screen or printer output. 

4. ) Output should include the variable name, 
its associated line reference numbers and be 
neat in appearance. 

5. ) Make the output fast and simple. 

6. ) Provide flexibility for user modifications. 
With these considerations in mind, I sat down and 

wrote BUNCRUSH. It’s been rewritten three or four 
times. Each time it was improved and streamlined. 
Listing 2 is the final version. 

With all the above ground rules set, I’ll dive into 
the background material, namely ATARI token 
structure. 

BASIC’s background. 

As was explained in the last utility article, vari¬ 
ables are assigned numbers in our token program. 
Names do not matter, unless we want to print out a 
program listing. It follows that, if we could locate the 
start of our token program, scan each line for a 
variable # (128-255), save the line numbers that 
contain the variables we are looking for and print out 
this information, we would be all set. Of course, we 


would have to do this for every variable number, and 
it could take some time. We’ll worry about the time 
later. The first question is: where does the tokenized 
version of our BASIC program begin? Glad you 
asked! The start location can be found at address 
135,137 (Decimal) or $88,89 (Hex). This is not 
where the program begins, but rather the pointer to 
where it begins. To obtain the decimal location 
number, we would execute the following BASIC 
statement. 

TOKEN=PEEK <136) +PEEK <137)*256 

The variable token would be set equal to the start 
address of our token program. Now what? Well, it’s 
time to scan the program from start to finish for our 
first variable. Before we do this, I’ll digress into my 
"Here’s how a tokenized BASIC line is set up” tap 
dance routine. 

I saw a hand in the back of the room . . . "What’s 
this 'tokenized program’ you keep referring to?” I’m 
sorry... let me explain. When you type in a program 
line in BASIC and hit RETURN, several things hap¬ 
pen. First, the BASIC cartridge takes each item you 
typed in and converts it into tokens for its own use. 
Each command (GOTO, TRAP, etc.), operator (+, 
-, =, etc.) and function (STR$, SIN, COS, etc.) has a 
special token associated with it. The interpreter 
scans, tokenizes, places the token in the program area 
and continues till it hits your carriage return. If 
everything is correct with respect to syntax, the 
cursor appears on the left side of the screen, and you 
can continue on with the next line. If you make a mis¬ 
take, the interpreter stops scanning and prints the 
line out with an error message and an inverse cursor 
to show you where it stopped. 

After you correct your mistake, the interpreter 
goes through the line again. This process continues 
until you have entered your entire program. 

The tokenizing process is used to save space by 
converting the ASCII input to tokens. For example, 
the Restore command would normally take 7 bytes 
(one per letter). Through tokenization, it only takes 
1 byte containing the number 35 Decimal. Tokens 
serve another important purpose. At Run-Time, the 
BASIC interpreter fetches a token. This token is 
actually an index for a jump table. This jump table 
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points to the various routines within the system. 
When a token has been executed, BASIC returns, 
fetches the next token and continues the process of 
execution. 

With that simple explanation out of the way, let’s 
look at the structure of a tokenized line of BASIC. 
Each line varies depending on its length and the 
number of multiple statements in it. Some items 
don’t get tokenized. ASCII strings are an example. In 
a statement such as PRINT "This is a test,” the 
PRINT statement will get tokenized. When the in¬ 
terpreter encounters the quotes, it replaces them 
with a 15-token (string follows token), saves one 
space, then puts each letter of the string in one byte 
until it hits the last quote. The byte after 15 then gets 
updated to the number of ASCII characters in the 
string. Similarly, numbers are put in BCD represen¬ 
tation. BCD numbers take up 6 bytes for the number 
itself. For example, with PEEK 130, the PEEK would 
get a token of 70, and the "(” a token of 58. Then a 
14 would be placed next. Fourteen is the "BCD 
number follows token.” After the 14 would be the 6 
byte BCD representation of 130 (65 1 48 0 0 0). 
Don’t worry, no need to memorize BCD numbers. 
Just remember how they appear. Anyway, our 
example of a simple tokenized BASIC line follows. 

BASIC line: 

20 PRINT PEEK(Z) 

Tokenized form (in decimal): 

Bytes (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 
20 0 10 10 32 70 58 128 44 22 

Bytes 1 and 2 — Line number LSB MSB FO 
RMAT 

Byte 3 — Numerical offset to the next line 
number in bytes 

Byte 4 — Numerical offset to next statement 
number of bytes. This is used to keep track of 
where the interpreter is when a line has multi¬ 
ple statements; i.e., 10 GOTO 20:GOSUB 200: 
PRINT X:GOTO 5 — The remainder of the 
bytes consists of the tokenized form of our 
BASIC line. 

Byte 5 is the token of PRINT. 

Byte 5 is the PEEK token. 

Byte 7 is the left parenthesis token ("(”). 

Byte 8 is the variable number assigned to Z. 

Byte 9 is the right parenthesis token (")”). 

Byte 10 is the end of line token. 

To help you get a feel for these concepts, I’ve in¬ 
cluded the ATARI BASIC TOKEN TABLE 1. I’ve 
also included a short program that prints out the 
tokenized version of line numbers within a program. 
This is Listing 1. I call it TOKLOOK. Type it in and 
save it using the LIST command. Now load in one of 
your BASIC programs. When "ready” appears, load 
the TOKLOOK program, using the ENTER com¬ 
mand. When it’s in, type GOTO 32500. Answer the 
prompt with a line number. The tokenized version of 


the line will appear, as well as the BASIC form. Use 
Table 1 and compare the token version with the 
table. This little utility helped me a great deal in un¬ 
derstanding how things get tokenized. 

Back to BUNCRUSH. 

Well, with that digression out of the way, let’s 
look at Listing 2, the actual BUNCRUSH utility. 
You may notice some similarity to the Variable 
Lister program. I built BUNCRUSH around it. 
Variable names were shortened and some unneces¬ 
sary items removed. There are 2 parts to BUN¬ 
CRUSH. I used BASIC to handle the string mani¬ 
pulation tasks of finding the variable names and 
formatting the names/line numbers for output. The 
ML routine works hand in hand with BASIC. All the 
ML routing does is search the token program for our 
variable number (we start at number 128). When it 
finds it, it returns the line number to BASIC. BASIC 
then takes the number and puts it in the string 
VAR$. If VAR$ exceeds the print length of 80, the 
program prints out that line. BASIC then jumps 
back into the ML routine, and the search goes on 
until all variables and line references are output. 

Program flow. 

Line 32500 — Clears all variables and sets 
up the program parameters. 

Line 32502 — Outputs heading credit. (Go 
ahead — put your own name in there if you 
want.) 

Line 32503 — Skips some lines, prints out 
column headings and reads in the ML routine 
data. 

Line 32504 — Gets our variable name, one 
character at a time. Remember from Variable 
Lister, an inverse character marks the end of a 
variable name. If TP>=128 then we subtract 
128 and set a flag at 1690 for use later on. I call it 
the Variable Name Complete Flag. If TP is not 
>=128 we move on. 

Line 32506 — Puts the variable name in 
VAR$. CC is the Character Count. 

Line 32508 — Checks our Variable Name 
Complete Flag. If it set (= 1) we GOSUB 32526. 

If not, we fall through. 

Line 32510 — Updates the current address 
(CA), the character count (CC) and goes back 
to 32504 to get the next character of the vari¬ 
able name. 

Line 32512 — Skips a few lines and prints 
out the variable count at the end of the program. 

Line 32513 — Ends the program. 

Line 32526 — Is a subroutine; we jump here 
from Line 32508. First we check if our variable 
name is VAR$. If yes, pop the stack and end the 
program. If not, we drop through. 

Line 32527 — Pads VAR$ with blanks. 
Variable names can be up to 15 characters long. 

If you have variable names longer than 15, just 
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change the 15 to whatever you want. I haven’t 
had any problems yet. Fifteen is a safe num¬ 
ber. 

Line 32530 — Jumps to our ML routine. 
The source listing is included as Listing 3. The 
ML routine searches every line of the token 
program, looking for our variable number. It 
returns to BASIC under two conditions. 

Condition 1: It finds our variable num¬ 
ber in a line. 

Condition 2: It encounters Line 32500, 

which is the start of the utility. 

Some simplifications were necessary in writing the 
search program. 

1. ) If you find our variable, stop searching 
that line and return to BASIC with the line 
number. There is no need to search any further, 
even if the variable appears 10 times in the line. 
All we care about is the line number, not how 
many times the variable appears therein. 

2. ) If we encounter a DATA or REM state¬ 
ment, skip it. There are no variables in DATA or 
REM statements. 

3. ) If we pick up a "BCD Number Follows” 
token (14), skip past it. Searching it is not 
healthy — we’ll get an erroneous cross-reference 
in some instances. 

4. ) If we encounter a "String Follows” token 
(15), skip past the string, as any inverse charac¬ 
ters will trigger the "I found our variable” 
signal. Remember, we look for variable 
numbers from 128-255. 

5. ) If we hit a "Statement End” token (15), 
skip past the next byte. It contains an offset 
number which can cause errors. 

I won’t go into too much detail on the ML routine. 
It’s not even very elegant, as a matter of fact. Things 
can be done to speed it up, but — as you’ll see — it’s 
plenty fast enough!!! Anyway, we return to BASIC. 

Line 32532 — Checks the con location at 
1680 decimal. If set, we are continuing — GO 
process the line number. If not, we are done 
with this variable, so drop through. 

Line 32534 — Erases the comma at the end 
of the last line number. If X <= 16 then no line 
numbers were generated for this variable and 
therefore there are no references for it. 

Line 32535 — Prints out VAR$, zeros out 
the character count, clears out VAR$ and 
NUM$ and returns to 32510 to get the next 
variable flag. 

Line 32536 — Gets the current line number 
(CL) from locations 1683 and 1684 — that’s 
where the ML routine put them. 

Line 32538 — Converts the line number to 
a string. It checks to see if the length of this line 
number, when added to the current length of 
VAR$, will be greater than 80. If it would, 


VAR$ gets printed first, then is padded with 15 
blanks. 

Line 32540 — The line number get added to 
VAR$ and a (comma space) is appended. Here, 

X is updated to reflect the length of VAR$. We 
then jump back to the ML routine so we can 
continue on. 

How to use BUNCRUSH. 

Type in the program from Listing 2. Double¬ 
check everything, especially the ML DATA, to en¬ 
sure a good program. Save the program to disk using 
the LIST "D:BUNCRUSH” command or to cassette 
using the LIST "C:” command. To use BUNCRUSH: 

1. ) Load in the program you want to cross 
reference. 

2. ) Load in BUNCRUSH using the ENTER 
"D:BUNCRUSH” command for disk or the 
ENTER "C:” command for cassette. 

3. ) When READY appears, be sure your 
printer and interface are turned on. 

4. ) Type in immediate mode GOTO 32500. 

5. ) BUNCRUSH should now print out the 
title and the column header VAR LINE 
NUMBERS to the printer. 

6. ) The CRT display should say READING 
ML PROGRAM. After 3-5secondsGOOOO!! 
should appear, and the printer should be busy 
dumping out the Variable Cross Reference. 

Modifications. 

The program in Listing 2 is set up for an ATARI 
825 printer with a line output of 80 columns. Modi¬ 
fications for other printers follow: 

1. ) PRINTER — If you have an ATARI 40- 
column printer, change the >80 in Line 32538 
to >40. 

2. ) NO PRINTER — If you don’t have a prin¬ 
ter, change all LPRINT statements to PRINT in 
Lines 32502, 32503, 32512, 32535 and 32538. 

In addition, change the 80 in Line 32538 to 39. 
Everything will now be dumped out to the 
screen. Use the CNTRL 1 key to STOP/START 
the listing. 

3. ) LINE NUMBERS — If you want to 
change the line numbers for BUNCRUSH in 
order to move it up or down, you must beware 
or certain items. All GOTO and GOSUB ref¬ 
erences must be changed to reflect the new line 
numbers. The most important change of all is in 
the ML routine itself. The ML routine checks to 
see if the current line number is 32500. If you 
change the starting line number of BUNCRUSH, 
you must change the check in the ML routine. 

DATA Line 32548, item 14 is a 126 which is 
the MSB of the line number 32500; DATA Line 
32500, item 5 is a 244 which is the LSB of 
32500. Anyway, whatever your new line 
number, break it down into LSB/MSB format 
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and substitute the appropriate numbers in the 
above mentioned locations. 

4.) OTHER CHANGES — Other things 
which you may want to add to BUNCRUSH are 
ERROR CHECKING and an INPUT line which 
will let you title the listing in expanded print so 
you know what program is being Cross 
Referenced. Another change which would 
require some work is to output an alphabetical 
Cross Reference. The possibilities for additions 
are limited only by your imagination. 

Drawbacks and limitations. 
BUNCRUSH has some limitations which I 
thought should be mentioned prior to receiving a 
bunch of nasty phone calls and letters. Limitations 
on BUNCRUSH are identical to those of the Vari¬ 
able Lister Utility on page 20. BUNCRUSH will 
not work correctly if: 

1. ) The target program uses more than 120 
variables. BUNCRUSH will abort the load pro¬ 
cedure with an ERROR 4 (Too Many Vari¬ 
ables). 

2. ) Line numbers are the same as BUN- 
CRUSH. In this case, BUNCRUSH will merge 
just fine with the target program but may cause 
problems if the target program has line numbers 
not contained in BUNCRUSH. 

3. ) The target program is so large that BUN¬ 
CRUSH will not load due to an ERROR 2 (In¬ 
sufficient Memory). 

I’ve never had problems with item 2 or 3. I have a 
48K system, however, and this may be the reason. I 
have encountered item 1 only once, and it was with a 
canned program. There is a way around all of these 
problems — a method by which BUNCRUSH will 
work on ANY BASIC program. If BUNCRUSH 
were written entirely in machine language, without 
BASIC overhead, everything would work fine. I’ll 
leave that as an exercise for the reader. □ 


Listing 1. 


32500 CLR :DIM VARS(13:ST=PEEK(136)+ PE 

EK(137)*256:NT=5T _ 

32502 ? CHRS (125) :? "OQUmMEIMIMlDE 
□33131": INPUT ft 

32504 TL=PEEKCHT)+PEEK(NT+J.J*256:BC=PE 
EK CUT + 21 :IF TL- 32580 OR TL>A THEN ? "ffl 

nm:riiaiiim:ii'imi ' 1 : goto 32512 

32506 IF TL <>A THEN NT=NT+BC;GOTO 3250 
4 

32507 ? ’■ LINED", "NKT LINE","NXT STMNT 


32508 ? "LSB/MSB"," OFFSET"," OFFSET' 

32509 ? " ";PEEK(NT);"/’ , ;PEEK(HT + 1),’ 

PEEK ( HT+2), " ";PEEK (NT+3) 


32518 


:F0R X=NT 


+ 4 T O NT + BC-1:? PEE K (X) ; *' ";:NEXT X:? 

: LIST a 

32512 " ~ ' T-T.tiii ! I ' I dkM!FAl\ " : INPUT 

VARS 

32514 IF UARS(1,1)="Y" THEN NT=5T:G0T0 
32502 
32516 END 


CHECKSUM DATA 
(See pgs. 7-10) 


32500 DATA 945,677,832,112,92,760,733, 
158,821,323,566,6019 


Listing 2. 


32400 REN MXMMKKMKMMXXMXKXK**** * * * ** 
32410 REM * THIS REM IS TO LET YOIJ * 
32415 REM * KNOW THAT THIS VERSION * 
32420 REM * OF BUNCRUSH HAS BEEN * 
32438 REM * IMPROVED TO HANDLE ALL * 
32448 REM * CASES OF IF/THEN. DON'T* 
32450 REM * TYPE IN THIS REM, JUST * 
32460 REM * READ FOR INFORMATION.. * 
32470 RFM ************************** 
32480 REM * 

32500 CLR :DIM VARS(80),NUM$(5):CA=PEE 
K(130)+PEEK C1311*256:CC=1:POKE 1699,0 

32502 ? "N":LPRINT "CROSS REFERENCE UT 
ILITV VER. 2.6 BY TONY MESSINA NEWPORT 

RI" 

32503 LPRINT :LPRINT :LPRINT "VAR 

LINE NUMBERS’HLPRINT :G0SUB 325 
42 

32564 TP=PEEK(CA) : IF TP>=128 THEN TP=T 

P~128:POKE 1699,1 

32506 VARS(CC,CC)=CHRS(TP) 

32508 IF PEEK(1699) THEN GOSUB 32526 
32510 CA=CA+1:CC-CC+1:G0T0 32584 

32512 LPRINT :LPRINT "» OF VARIABLES^ 
";PEEK(1695)-128 

32513 END 

32526 IF VARS="VARS" THEN POP :G0T0 32 
512 

32527 FOR X=CC+1 TO 15:VARS(X,X)-" ":N 
EXT X:GOTO 32530 

32530 A=USR(1536) 

32532 IF PEEK(1694) THEN GOTO 32536 

32534 VARS(X-1,X-1)=" ":IF X<=16 THEN 
VARS(LEN(VARS)+1)="N0 REFERENCES" 

32535 LPRINT VARS:LPRINT :CC=8:P0KE 16 
99,8:VARSr"":NUMS="":RETURN 

32536 CL=PEEK(1697)+PEEK(16981*256 
32538 NUM$-STRS(CL):IF LEN(VARS)ELEN(N 
UMS)+2>80 THEN LPRINT VARS:VARS=" 


32540 VARS(LEN(VARS)+1)=NUMS:VARS(LEN( 
VARS)+1)-", ":X-LEN(VAR S):GOTO 32530 
325 42 RESTORE 32546:? "|313>iXI3EIM3Mi 
GEE":FOR X=1536 TO 1699:READ TP:P0KE X 

,TP:NEXT X _ 

32544 ? CHRS (125) : ? " [tMiMiMI " : RETURN 
32546 DATA 169,8,285,158,6,208,8,165,1 
36,133 

32548 DATA 205,165,137,133,206,160,0,1 
77,205,141 

32550 DATA 161,6,200,177,205,141,162,6 
,201,126 

32552 DATA 208,7,173,161,6,201,244,240 
,96,200 

32554 DATA 177,205,141,157,6,160,4,177 
,205,201 

32556 DATA 20,208,9,192,4,240,1,280,20 
0,76 

32558 DATA 115,6,205,159,6,248,59,201, 
0,240 

32560 DATA 49,281,1,240,45,201,14,208, 
8,152 

32562 DATA 24,105,7,168,76,115,6,200,2 
01,15 

32564 DATA 288,23,136,136,177,205,200, 
200 201 27 

32566 DATA 240,13,177,205,140,160,6,23 
8,168,6 

32568 DATA 24,109,160,6,168,284,157,6, 
144,183 
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32578 

DATA 

32, 

32 



32572 

DATA 

144 

6,140 



32574 

DATA 

158 

,15?,i 

32576 

6 

DATA 

133 

0,128 

32578 

DATA 

0,0 

• 




CHECKSUM DATA 
(See pgs. 7-10) 

*2408 DATA 582,785,847,663,732,808,659 
,796,596,385,897,819,873,152,100,9746 
32508 DATA 501,933,946,557,148,806,127 
,271,666,612,288,126,988,675,560,8204 
32546 DATA 698,145,91,876,121,536,822, 
763,817,137,868,924,484,815,716,8805 
32576 DATA 795,693,1488 


Assembly language listing. 


0373 
0400 
0403 
0410 
04 13 
0420 
0423 
0430 
0433 
0440 
0443 
0430 
0433 
0460 
0463 
0470 
0473 
0400 
0403 
0470 
0473 
0300 
0303 
0310 
0313 
0320 
0323 
0330 



DEY 


* ELSE DEC FOR 


DEY 


1 THEN CHECK 


LDA 

(PG0),Y 

1 GET PREVIOUS TOKEN 


INY 


I THEN RESTORE 


INY 


I ORIGINAL POINTER 


CMP 

• THEN 

» IS IT THEN? 


BEQ 

CKCNT 

I YES. IF/THEN NOT STRING! 


LDA 

( PG0 ) , Y 

1 NO..GET STRING CNT 


STY 

YSAVE 

1 SAVE Y 


INC 

Y8AVE 

» INC PAST THE LA8T 8TRING 


CLC 


1 CLEAR CARRY FOR ADD 


ADC 

YSAVE 

1 ADD STRING COUNT TO OLD 


TAY 


1 PUT CNT BACK IN Y REG 

CKCNT 

CP Y 

COUNT 

i ARE WE IN NXT BASIC LINE 


BCC 

START 

1 IF NO GET THIS BYTE 

SKI PIT 

J SR 

TOKUP 

1 IF YES UPDATE TOKEN PTR 


JMP 

CONTIN 

1 CONTINUE TO LOOK 

PROCIT 

STA 

CON 

1 MAKE CON NON-ZERO 


JSR 

TOKUP 

1 UPDATE PAGE 0 POINTER 


JMP 

BASIC 

1 EXIT TO BASIC 

DONE 

DEY 


I DEC Y TO ZERO 


INC 

TARGET 

I UPDATE TARGET NUMBER 


STY 

CON 

1 ZERO OUT CON FOR BASIC 

BASIC 

PLA 


1 PULL NASTYNES8 OFF 


RT8 


1 RETURN TO BA8IC 


• SUBROUTINE TOKUP * 


0333 

1 • 

* 



** 

0340 

1 * 

THIS 

SUBROUTINE 

UPDATES THE 

0343 

1 * 

PG0 

PTR OF THE 

TOKEN 

PROGRAM 

0330 

1 * 

THE 

OLD PTR IS 

LOADED 

AND 

0333 

I * 

THEN 

THE BYTE CNT IS 

ADDED. 

0360 

1 * 

IF CARRY IS SET 

PG0+ l 

IS 

0363 

1 » 

ALSO 

UPDATED 




0370 

0373 


0003 


»***« 


**** 

0010 

I* ML SEARCH AIDE FOR ATARI 

400* 

0013 

I* /80 0 BY 

TONY 

MESSINA. 

• 

0020 

1* 48 DUDLEY AVE NEWPORT, RI 

• 

0023 

I* 02840 VERSION 2.6 10 JUL 

83 * 

0030 




**** 

0033 




* *** 

0040 

I* EQUATES 

FOR 

PROGRAM FOLLOW * 

0043 


»***• 


**** 

0030 

1 




0033 

DATA 

. D I 

1 

1 DATA TOKEN 

0060 

REMARK 

. D I 

0 

1 REM TOKEN 

0063 

BCD 

. D I 

14 

1 BCD • TOKEN 

0070 

STRING 

. D I 

13 

1 STRING TOKEN 

0073 

STMT 

. D I 

20 

I STATEMENT END 

0080 

THEN 

. D I 

27 

1 THEN TOKEN 

0083 

TOKPTR 

. D I 

• 0088 

1 POINTER TO BA8 

0070 

PQ0 

. D I 

• 00CD 

1 LOC ON PAGE 0 


0380 TOKUP 
0383 
0370 
0373 
0600 
0605 

0610 OUT 
0613 I 
0620 |***** 
0623 | 


LDA *PQ0 1 8ET L3B OF POINTER 

CLC | CLEAR CARRY FOR ADD 

ADC COUNT I ADD CNT TO NXT LINE 4 

ST A • PG0 | PUT IT BACK 

BCC OUT | IF CARRY CLEAR GET OUT 

INC »PG0+1 1 OOPS, CARRY SET. INC MSB 

RTS | SCRAM SAM'! 


LOCAL VARIABLES FOLLOW 


0630 

COUNT 

. BY 

0 

I BYTE CNT THIS BASIC LINE 

0633 

CON 

. BY 

0 

l FLAG FOR BASIC fc ML ROUT 

0640 

TARGET 

. BY 

128 

l VARIABLE TOKEN « START A 

0643 

YSAVE 

. BY 

0 

1 Y REGISTER SAVE AREA 

0630 

LINNUM 

. BY 

0 

1 BASIC LINE NUMBER LSB 

0633 


. BY 

0 

I MSB OF LINE • 

0660 

INVFLQ 

. BY 

0 

I INVERSE FLAG AREA 

0663 


. EN 




0073 
0100 
0103 
0110 
01 13 


I* TH18 PROGRAM DOES A SEARCH * 
1* TO AIDE BUNCRUSH. BASIC WAS • 
!* TOO SLOW, SO THIS ML ROUTINE* 


0120 

1 » WAS 

WRITTEN 

TO SPEED 

0123 

1 * UP A 

BIT. . 


0 130 

I•»•••» 



0 133 

1 



0140 


. OS 


0143 


. BA 

• 0600 

0 130 

BEGIN 

LDA 

• 0 

0133 


CMP 

CON 

0160 


BNE 

CONTIN 

0163 

INIT 

LDA 

•TOKPTR 

0170 


STA 

*PG0 

0173 


LDA 

•TOKPTR+: 

0180 


STA 

*PG0+1 

0183 

CONTIN 

LDY 

• 0 

0170 


LDA 

(PG0),Y 

0173 


STA 

LINNUM 

0200 


INY 


0203 


LDA 

(PQ0 > ,Y 

0210 


STA 

LINNUMt-1 

0213 

1 



0220 

1**** CHECK THI 

S LINNUM 

0223 

* 



0230 


CMP 

• •7E 

0233 


BNE 

NOEQ 

0240 


LDA 

LINNUM 

0243 


CMP 

• •F 4 

0230 


BEQ 

DONE 

0233 

NOEQ 

INY 


0260 


LDA 

(PG0),Y 

0263 


STA 

COUNT 

0270 


LDY 

• 4 

0273 

START 

LDA 

< PG0 ) , Y 

0280 


CMP 

• STMT 

0203 


BNE 

TARGCK 

0270 


CP Y 

• 4 

0273 


BEQ 

WASDIM 

0300 


INY 


0303 

WASDIM 

INY 


0310 


JMP 

CKCNT 

0313 

TARGCK 

CMP 

TARGET 

0320 


BEQ 

PROCIT 

0323 


CMP 

•REMARK 

0330 


BEQ 

BKIPIT 

0333 


CMP 

• DATA 

0340 


BEQ 

SKIPIT 

0343 


CMP 

• BCD 

0330 


BNE 

STRCK 

0333 


T Y A 


0360 


CLC 


0363 


ADC 

• 7 

0370 


TAY 


0373 


JMP 

CKCNT 

0380 

STRCK 

INY 


0383 


CMP 

•STRING 

0370 


BNE 

CKCNT 


STORE OBJECT IN MEM 
ORIGIN PG6 
LOAD A WITH 0 


ATARI BASIC 
TOKEN TABLE 



CK WITH CON FLAG 

HEX DEC 


HEX DEC 


HEX DEC 



SKIP INIT IF NOT 0 

GET LSB OF POINTER 

00 

0 

REM 

0E 

14 

[NUM CONST] 

3D 

61 

STR$ 


STORE IT 

01 

1 

DATA 

OF 

15 

[STR CONST] 

3E 

62 

CHR$ 


GET MSB OF POINTER 

02 

2 

INPUT 

10 

16 


3F 

63 

USR 


STORE IT ALSO 

START Y AT ZERO 

03 

3 

COLOR 

11 

17 

[NOT USED] 

40 

64 

ASC 


GET LSB OF LINE NUMBER 

04 

4 

LIST 

12 

18 


41 

65 

VAL 


SAVE IT FOR BA8IC 

05 

5 

ENTER 

13 

19 

$ 

42 

66 

LEN 


INCREMENT OFFSET BY 1 

GET MSB OF LINE NUMBER 

06 

6 

LET 

14 

20 

: [STMT END] 

43 

67 

ADR 


SAVE IT FOR BASIC 

07 

7 

IF 

15 

21 


44 

68 

ATN 



08 

8 

FOR 

16 

22 

[LINE END] 

45 

69 

COS 

32300 **** 

09 

9 

NEXT 

17 

23 

GOTO 

46 

70 

PEEK 


IS IT - TO M8B 

0A 

10 

GOTO 

18 

24 

GOSUB 

47 

71 

SIN 


IF NO THEN START 

0B 

11 

GO TO 

19 

25 

TO 

48 

72 

RND 


YES SO CK LSB 

DO IT 

IF EQ. DONE THIS VAR 

OC 

12 

GOSUB 

1A 

26 

STEP 

49 

73 

FRE 


0D 

13 

TRAP 

IB 

27 

THEN 

4A 

74 

EXP 


INC PTR TO NEXT LOCATION 

0E 

14 

BYE 

1C 

28 

# 

4B 

75 

LOG 


GET BA3IC LINE BYTE CNT 
SAVE IT FOR FUTURE CKS 

OF 

15 

16 

CONT 

COM 

ID 

IE 

29 

30 

<= [NUMERICS] 

4C 

4D 

76 

77 

CLOG 

SQR 


GET NEW OFFSET 

10 

<> 


GET A BYTE INDIRECTLY 

11 

17 

CLOSE 

IF 

31 

>= 

4E 

78 

SGN 


CK FOR A STMNT/DIM TOKEN 

IF NO, CK FOR T0T TOKEN 

12 

18 

CLR 

20 

32 

< 

4F 

79 

ABS 


WAS IT 1ST BYTE? 

13 

19 

DEG 

21 

33 

> 

50 

80 

INT 


YES..IT WAS A DIM! 

14 

20 

DIM 

22 

34 

= 

51 

81 

PADDLE 


INC 2 IF STMNT 

15 

21 

END 

23 

35 

X 

52 

82 

STICK 


INC 1 FOR DIM 

SEE IF WE ARE DONE 

16 

22 

NEW 

24 

36 

* 

53 

83 

PTRIG 


IS IT OUR TARGET 

17 

23 

OPEN 

25 

37 

+ 

54 

84 

STRIG 


IF- GO PR0CE38 THIS LINE 

18 

24 

LOAD 

26 

38 

_ 





NO CK REM 

IF REM SKIP THIS LINE 

19 

25 

SAVE 

27 

39 

/ 





NOT REM. CK DATA 

1A 

26 

STATUS 

28 

40 

NOT 





IF DATA SKIP IT ALSO 

IB 

27 

NOTE 

29 

41 

OR 





NOT DATA CK BCD NUMBER 

IF NOT BCD CK FOR STRING 

1C 

28 

POINT 

2A 

42 

AND 





ITS BCD PUT OFFSET IN A 

ID 

29 

XIO 

2B 

43 

( 





CLEAR CARRY FOR ADD 

IE 

30 

ON 

2C 

44 

) 





ADD 7 TO SKIP THE BCD • 
PUT NEW OFFSET BACK IN Y 

IF 

31 

POKE 

2D 

45 

= [ARITHM ASSIGN] 





AMD SC CK COUNT 

20 

32 

PRINT 

2E 

46 

= [STRING ASSIGN] 





INC PTR BY ONE 

21 

33 

RAD 

2F 

47 

<= [STRINGS] 





CK IF STRING TOKEN 

IF NO. GO CK THE COUNT 

22 

34 

READ 

30 

48 

O 





23 

35 

RESTORE 

31 

49 

>= 
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24 

36 

RETURN 

32 

50 

< 

25 

37 

RUN 

33 

51 

> 

26 

38 

STOP 

34 

52 


27 

39 

POP 

35 

53 

+ [UNARY] 

28 

40 

? 

36 

54 

- 

29 

41 

GET 

37 

55 

( [STRING LEFT PAREN] 

2A 

42 

PUT 

38 

56 

( [ARRAY LEFT PAREN] 

2B 

43 

GRAPHICS 

39 

57 

( [DIM ARRAY LEFT PAREN] 

2C 

44 

PLOT 

3A 

58 

( [FUN LEFT PAREN] 

2D 

45 

POSITION 

3B 

59 

( [DIM STR LEFT PAREN] 

2E 

46 

DOS 

3C 

60 

. [ARRAY COMMA] 

2F 

47 

DRAWTO 




30 

48 

SETCOLOR 




31 

49 

LOCATE 




32 

50 

SOUND 




33 

51 

LPRINT 




34 

52 

CSAVE 




35 

53 

CLOAD 




36 

54 

[IMPLIED LET] 




37 

55 

ERROR- [SYNTAX] 





Triangle Demo 


5 C-l 

10 GRAPHICS 23 
15 E=INTt300*RNDtlJ) 

20 D=INT(300*RND(1)J 
25 C=1 
30 COLOR C 
35 B=39 
40 H-73 

45 FOR S=1 TO D STEP E 

50 FOR X=A TO B STEP -2 

55 PLOT 80,A-X 

60 DRAMTO 80+X,INTCA/SJ 

65 DRAMTO 80,X 

70 DRAMTO 80-X,IHTCA/SJ 

75 DRAMTO 80,A~X 

80 IF PEEKC764J<>255 THEN END 

85 COLOR C 

90 NEXT X 

95 C=dl 

100 NEXT S 

105 SETCOLOR 0,T,2 

110 T-T+l 

115 GOTO 5 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 693,999,498,483,967,760,238,227 
,138,962,886,140,38,146,502,7677 
80 DATA 871,785,403,77,748,508,326,662 
,4380 
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SYS/STAT 


16K Cassette or Disk 


by Robert Hartman 


System Status is a BASIC program that allows 
the user to look at a formatted listing of all the 
devices accessible to him/her. It also has the capabil¬ 
ity to display 64 files on drives one through four. Its 
main purpose, however, is not to be a menu, but to 
supply the user with information regarding the 
accessibility of the four RS-232 ports. 

NOTE: If a drive is started up after the program 
has been run, it is necessary to re-run the program in 
order to get a menu on that particular drive. □ 


DeviceslPresent 


10 REM Analog System status 

20 REM Version 1.1 

30 REM copyright ICJ April, 1981 

40 REM by Robert w. Hartman 

50 DIM AS120),BS<6),F$t51,AC5):GRAPHIC 

S 0:POKE 752,1:POKE 559,0:POKE 82,1:P0 

KE 83,39:FR=FRE(0): LSCH=764:C0N=53279 

60 POKE 65,0:REM Noisy I/O off 

70 REM SET UP SCREEN 

80 FOR 1=19 TO 22:POSITION 18,1:? "I": 
NEXT I 

90 POSITION 12,1:? "analog systat":F0 
R 1=12 TO 25:POSITION 1,0:? IPOSITI 
ON 1,2:? "-":P0KE CON,0:NEXT I 
100 FOR 1=0 TO 38: POSITION 1,3:? *'-":P 
OSITION 1,19:? "—":NEXT I 
HO REM CHEAT Cjust a little) 

120 POSITION 12,5:? _ 

FOR 1=12 TO 26 : POSITION 1,6:? "”": NEXT 
I:POSITION 1,7:? "H -Keyboard" 

138 POSITION 1,9:? "0 -Screen":P0SITI0 
N 1,11:? "11 -Editor":POSITION 1,13:? " 
0 -Cassette":C=7:R=26 
140 REM SYSTAT 

150 TRAP 190:OPEN 111,6,0,"D1 POSI 

TION R,C:? "EB -Drive «1":GOSUB 260:D1 
= 1 

160 OPEN tt2,6,0,"D2:*.*":POSITION R,C: 

? "OE -Drive tt2":G05UB 260:D2=1 

170 OPEN »3,6,0,"D3:*.*":POSITION R,C: 

? "SB -Drive Jt3":G0SUB 260:D3=1 

180 OPEN Jt4,6,8,"D4 POSITION R,C: 

? "EG -Drive 84":GOSUB 260:D4 = 1 

190 TRAP 280:OPEN 85,8,0,"R:“:GOSUB 27 

0 

200 CLOSE 85 : TRAP 210: OPEN US, 8,0 , "P : " 
:POSITION 14,14:? "Q -Printer" 

210 REM MEMORY 

220 POSITION 1,19:? "Amount-of-Memory" 
:POSITION 1,20:? FR:FOR 1=1 TO 5:POSIT 
ION I,20:GET 86,A:AtI)=A:HEXT I 
230 FOR 1=1 TO 5:FStI,I)=CHR$tA(I)+i28 
):NEXT I: POSITI ON 1,20:? ,:POSITION 2, 
21:? F$ ;"137IEB" 

240 GOTO 280 

250 FOR 1=1 TO 7:CLOSE 81:NEXT I:RETUR 


N 

260 C=C + 2:RETURN 

270 POSITION 12,16:FOR 1=1 TO 4:? "B"J 
CHRSCI+48+128);", ";:NEXT I:? "44":POS 


ITION 12,17:? "R5232-C ports":RETURN 
280 TRAP 32767:POSITION 23,19:? "Comma 
nds":POSITION 24,20:? "T-MenuCs)" 

290 POSITION 24,21:? "EFRun again 

:POSITION 24,22:? "B-EXIT":POKE 559,34 

:SETCOLOR 2,4,4: POKE LSCH,255 

380 CLOSE 85 : OPEN 85,4,0, "K : " : GET 85,A 

: IF A069 AND A<>77 AND A<>82 THEN 300 

310 IF A=69 THEN GRAPHICS 0:POKE 65,1: 

GOSUB 250 : NEW 

320 IF A=82 THEN RUN 

330 REM MENU fS) 

340 POSITION 23,19:? "-":POKE 2 

01,14:FOR 1=20 TO 22:POSITION 24,1:? , 

:NEXT I:POSITION 24,21:? "Enter Drive" 
350 TRAP 280:POSITION 37,21:INPUT DR 
360 IF DR<1 OR DR>4 THEN 280 
370 IF DR=1 AND Dl=l THEN DRU=1:G0T0 4 
20 

380 IF DR=2 AND D2=l THEN DRU=2:G0T0 4 
20 

390 IF DR=3 AND D3=l THEN DRV=3:G0T0 4 
20 

400 IF DR=4 AND D4=l THEN DRU=4:G0T0 4 
20 

410 GOTO 280 

420 ? "6":P0SITI0N 2,1:? "Menu for Dri 
ve 8";DRV:? :? :GOSUB 258:BS=”D 
B$(2,2)=STRSCDRV) 

430 OPEN 81,6,0,B$:OPEN 82,4,0,"K:" 

440 TRAP 480:INPUT 81,AS:N=N+1 
450 ? AS(2,LEN(AS)):IF PEEKC90)=21 THE 
N POKE 82,PEEKC82)+20:POSITION PEEKC82 
) ,4 

460 IF N=35 THEN GOTO 520 
470 GOTO 440 

488 ? CHRS(28)":? :I 
F LEN (AS)>15 THEN IF AS CIO,11)="SE" TH 
EN GOTO 506 

490 ASCLEN(AS)+1)=" FREE SECTORS" 

5O0 FOR 1 = 1 TO LEN(AS):AS Cl,I)=CHRSCAS 

CCA$CI,I))+128) :NEXT I:? AS 

5i0 POKE LSCH,255:GET 82,A:CL05E 82:RU 

N 

520 REM Get rest of Menu After Char 
530 POKE LSCH, 255 : GET t*2,A:P0KE 82,2:? 
"6":POSITION 2,3 

540 TRAP 570:INPUT 81,AS:? AS(2,LEN(AS 
)) 

550 IF PEEK C90)=22 THEN POKE 82,PEEKC8 

2)+20:POSITION PEEK C82),4 

560 GOTO 540 

570 TRAP 32767:GOT0 480 




CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 988,4,923,497,183,455,780,739, 

522,805,473,0,266,62,125,6822 

160 DATA 971,986,1,844,985,35,329,933, 

723,526,292,597,140,128,961,8451 

310 DATA 771,800,146,204,921,738,288,2 

97,306,287,718,918,984,932,640,8950 

460 DATA 418,728,64,134,615,333,767,23 

7,39,838,729,937,5831 
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FASTERCHARACTER DUMPS 


16K Cassette or Disk 
by Joseph T. Trem 


If you are an avid ATARI enthusiast as I am, then 
you probably have gone through quite a number of 
different programs. Many of the better programs use 
character redefinition. Unfortunately, to define a 
new character set one must move ATARI’S character 
set into a new defined memory location. In BASIC, 
this takes time. For 1024 bytes (128 characters or 4 
pages) it takes approximately eleven seconds. It’s 
downright boring! 

This article demonstrates a machine language 
routine in string form which transfers ATARI’S 
character set into a user-chosen RAM area. It runs in 
a split second. Before going any further, I must state 
that this article is not a tutorial on character redefini¬ 
tion or animation, although they are both used in 
the demo. 

Here is a brief summary of the four sample pro¬ 
grams included. Program 1 demonstrates charac¬ 
ter redefinition and the time involved in transferring 
1024 bytes (line 40). This takes approximately 11 
seconds. Program 2 incorporates the machine 
language routine and takes less than a second (line 
30). Program 3 demonstrates a sample program 
with sound and animation. There are five redefined 
characters. After the program executes once, it 
recycles and re-executes all over again. Notice the 
time it takes to rerun. . .remember: every time this 
program runs, it is dumping 1024 bytes in under a 
second! Program 4 is the source code for the 
machine language routine. 

The technique used in this program is called a 
block move. We simply look at what is in ATARI’S 
character base address and move that data to our new 
character address, one byte at a time. This technique 
is also good for player/missile graphics. You can zero 
out all player/missile data in a split second. Just 
think, no more time delay to clear P/M memory. 
Sound great? Then read on... here is the 
documentation for the first three programs. 

Program 1. 

Line 20 — Sets up character variables 
Line 40 — Transfers characters (slow) 

Lines 50-70 — Reads in new character 
Line 80 — Points to new character base 


Program 2. 

Line 20 — Sets up character variables 
Line 30 — Transfers characters (fast) 

Lines 40-60 — Reads in new character 
Line 70 — Points to new character base 

Program 3. 

Line 10 — Sets up variables 
Line 100 — Transfers 128 characters 
Lines 1000-2170 — Alters character set 
Line 3000 — Points to a new character base 
Lines 3500-7000 — Main loop for 

animation 

Line 10000 — Sound routine 
Here’s some information on our USR call: 

A=USR(ADR(E$),ADDR,PAGE) 

ADDR=address where new character set is to 
reside 

PAGE=the number of 256 blocks you wish 
to move. 

In closing, I hope that everyone will enjoy the 
substantial increase in speed this subroutine can pro¬ 
vide. Just think, no more "Please wait. . . ” prompts. 
□ 


Program 1 


18 REM ***DUMPS 1024 BYTES TO MEW CHBA 
S USING ONLY BASIC CAPR0X. 11 SECONDS! 

20 DIM E$(50):RAMT0P=PEEKC106)-8:P0KE 
106,RAMT0P:CHBAS=RAMT0P:ADDR=CHBAS*256 
SO GRAPHICS 17:POSITION 0,9:? #6; M M0VI 
NG CHARACTER 5ET M 

40 FOR X=0 TO 1623:POKE ADDR+X,PEEK(57 
344+XJ:NEXT X 

50 CHAR=59:P05=ADDR+(CHAR*8J 
60 DATA 0,24,36,66,153,66,68,0 
70 FOR X=0 TO 7:READ A:POKE CP0S+XJ,A: 
NEXT X 

80 GRAPHICS 18:POKE 752,1:P0KE 756,CHB 
AS 

90 POSITION 18,5:? tt6; ,, r n 
106 GOTO 180 
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CHECKSUM DATA 
(See pgs. 7-10) 


19 DATA 377,35,598,506,976,318,768,421 
,361,683,5095 


Program 2 

10 REM ***DUMPS 1824 BYTES TO NEW CHBfl 
S IN MACHINE LANGUAGE (NO DELAY)*** 

28 DIM E$(58):RAMTOP=PEEK(106)-8:POKE 
106,RAMTOP:CHBAS=RAMTOP:ADDR=CHB0S*256 
:PAGE=4 

30 FOR X=1 TO 40:READ N:ES(X)=CHR$ (N) : 
NEXT X:A=USR(ADR (E$),ADDR,PAGE):REM *D 
UM> ROUTINE* 

40 DATA 104,104,133,207,104,133,286,10 
4,104,133,212,169,8,133,204,169,224,13 
3,205,162 

50 DATA 1,168,0,177,204,145,206,200,28 
8,249,238,205,230,207,232,228,212,208, 
240,36 

60 CHAR=59:P0S=ADDR+(CHAR*8) 

70 DATA 0,24,36,66,153,66,60,0 

80 FOR X=0 TO 7:READ A:POKE (P05+X),A: 

NEXT X 

90 GRAPHICS 18:POKE 752,1:P0KE 756,CHB 
AS 

100 POSITION 9,5:? tt6J"( ,, 

118 GOTO 118 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 659,729,478,848,552,978,320,76 
2,423,292,683,6722 


Program 3 

10 CLR :DIM E$(50):RAMTOP=PEEK(106):CH 
BAS=RAMT0P-8:ADDR=CHBAS*256:PAGE=4:SND 
=10080 

100 FOR X=1 TO 40:READ N:E$(X)=CHR$(N) 
iNEXT X:A=USR (ADR(E$),ADDR,PAGE):REM * 
DUMP ROUTINE* 

110 DATA 104,184,133,207,104,133,206,1 
04,184,133,212,169,0,133,204,169,224,1 
33,285,162 

120 DATA 1,160,8,177,204,145,286,200,2 
08,249,230,205,230,207,232,228,212,208 
,240,36 

1000 CHAR=59:POS=ADDR+(CHAR*8) 

1010 DATA 8,0,144,96,144,0,8,0 

1020 FOR X=8 TO 7:READ A:POKE (POS+X), 

A:NEXT X 

2000 CHAR=60:POS=ADDR+(CHAR*8) 

2010 DATA 0,6,6,15,6,6,0,0 

2820 FOR X=0 TO 7:READ A:POKE (POS+X), 

A:NEXT X 

2850 CHAR=61:POS=ADDR+(CHAR*8) 

2060 DATA 0,0,0,20,8,20,0,0 

2870 FOR X=0 TO 7:READ A:POKE (POS+X), 

A:NEXT X 

2100 CHAR=62:POS=ADDR+(CHAR*8) 

2110 DATA 0,0,20,10,60,20,10,0 

2120 FOR X=8 TO 7:READ A:POKE (POS+X), 

A:NEXT X 

2150 CHAR=63:P0S=ADDR+(CHAR*8) 

2160 DATA 0,140,184,57,86,72,2,0 
2170 FOR X=0 TO 7:READ A:POKE (POS+X), 
A:NEXT X 

3080 GRAPHICS 17:P0KE 752,1:POKE 756, C 
HBAS 


3010 POSITION 1,20:? tte^'ASSY CHARACTE 
R DUMP" 

3500 FOR X=0 TO 4:POKE 708,14:POSITION 
X, 5 : ? t*6; '■ [ ":GOSUB SND:POKE 708,8:P 
OSITION x,5:? **6;" \ ":GOSUB SND 
3510 NEXT X 

3520 FOR 1=1 TO 20:POKE 788,14:G0SUB S 
ND:POKE 708,8:GOSUB SND 
3530 NEXT I 

4080 FOR X=5 TO 10:POKE 708,14:POSITIO 
N X, 5 : ? **6; n ( **: GOSUB SND: POKE 708,8: 
POSITION x,5:? t*6;" \ ":G05UB SND 
4010 NEXT X 

4520 FOR 1=1 TO 28:P0KE 708,14:GOSUB S 
ND : POKE 708,8:GOSUB SND 
4530 NEXT I 

5000 FOR X=ll TO 14:POKE 708,14 : P05ITI 
ON x,5:? tt6; n C ":GOSUB SND:POKE 708,8 
POSITION x,5:? **6;" \ ":GOSUB SND 
5010 NEXT X 

6000 POSITION 15,5:? tte^'J'UFOR D=14 T 
0 10 STEP -1: SOUND 0,30,8,D:NEXT D 
6010 POSITION 15,5:? tt6; ,,A " :FOR D = 10 T 
0 5 STEP -l:SOUND 0,100,8,D:NEXT D 
6820 POSITION 15,5:? It6;: FOR D=5 TO 
8 STEP -1:SOUND 8,38,8,D:NEXT D 
6030 POSITION 15,5:? **6;: FOR D=5 TO 
0 5TEP ~1:SOUND 0,38,8,D:NEXT D 
6840 POSITION 15,5:? *»6 J * ,A " : FOR D=10 T 
0 5 STEP _ 1:SOUND 0,100,8,D:NEXT D 
6050 POSITION 15,5:? 1*6 J "3 " : FOR D=14 T 
0 10 STEP -1: SOUND 0,30,8,D:NEXT D 
6070 POKE 788,0:SOUND 0,0,0,0:SOUND 1, 
0,0,0:SOUND 2,0,0,0 
7800 GOTO 10 

18008 SOUND 0,200,12,8:S0UND 2,203,12, 
8:SOUND 1,RND(0)*10,18,8:RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 772,278,748,506,876,319,217,87 
2,803,219,878,933,224,877,233,8815 
2120 DATA 222,883,396,227,344,928,573, 
549,57,506,809,536,59,508,398,6995 
5010 DATA 538,815,747,838,839,750,820, 
756,623,551,7277 


Assembly listing. 

0130 ;CHARACTER DUMP BY JOE TREM 

0110 OLD=TCC ;TEMP. LOCATION OF ATARI'S CHARACTER SET 

O120 NEW=1CE ;TEMP. LOCATION OF NEU CHARACTER SET 

0130 PAGE=TD4(NUMBER OF 256 BYTE BLOCKS 

0140 +=1600 

0150 PLA 

0160 PLA ;PULL HIGH BYTE OF ADDR 
0170 STA NEIJ+1 

0188 PLA ;PULL LOU BYTE OF ADDR 
0190 STA NEU 

0230 PLA ;PULL HIGH BYTE-DON'T NEED 
0210 PLA :PULL NUMBER OF BLOCKS TO MOVE 
0228 STA PAGE 

0230 LDA 800 ;LOADS IN ATARI CHR.SET 
0240 STA OLD 

0250 LDA 81E0 ;ATARI CHR. SET 13 AT $E808 OR 57344 IN Bf 

8260 STA OLD+1 

0278 LDX #1 

0230 LDY 00 

0298 LOOP LDA (OLD),Y 

8380 STA (NEU),Y ;MOVES TO NEU AREA 

0318 INY 

8320 8NE LOOP 

0338 INC OLD+1 

0348 INC NEU+1 

8358 INX 
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03M CPX PAGE 
8378 BNE LOOP 

9330 RTS :IF ALL BLOCKS ARE LOADED RETURN TO BASIC 
0399 .END 


Atari Symbol Demo 


0 REM MMXKmO t MXMMKXMKKHXMM 

1 REM X x 

2 REM * ATARI SYMBOL * 

3 REM * BY CRAIG WEISS * 

4 REM * * 

5 REM XXXXXX X X- XXX X- XXXMXXX M 

10 GRAPHICS 24:COLOR l:POKE 559,0 
20 R = 0 

24 REM 

25 REM *** PLOT STRAIGHT LINES *** 

26 REM 

30 READ M, X, Y , Z :PLOT U,X:DRAHTO Y,Z:R= 
R+l 

1O0 DATA 144,13,144,76,144,13,156,15,1 
44,13,128,28,156,15,156,88,160,16,156, 
20,160,16,160,176 

110 DATA 160,16,180,20,180,20,180,176, 
184,21,180,24,184,21,194,24,194,24,194 
,84,240,154,240,172 

120 DATA 240,172,220,172,180,176,160,1 

76.160.176.144.176.144.176.144.144.88, 
180,68,180,88,180,88,160 

130 DATA 68,180,68,160,68,160,88,160,1 
28,28,128,76,184,21,184,84 

134 REM 

135 REM *** PLOT FALSE CURVES *** 

136 REM 

140 DATA 128,77,126.5,94,126.5,94,124, 

108.124.108.120.122.120.122.112.137.11 

2.137.104.145 

150 DATA 104,145,96,150,96,150,88,155, 

88,155,80,158,80,158,72,160 

160 DATA 144,76,142.5,94,142.5,94,140, 

108.140.108.135.122.135.122.126.137.12 

6.137.120.145 

170 DATA 120,145,114,151,114,151,108,1 

55.5.108.155.5.100.158.5.100.158.5.88, 
160 

180 DATA 156,88,153.5,112,153.5,112,15 
0,128,150,128,144,144,143,144,136,156, 
136,156,124,168 

190 DATA 124,168,112,176,112,176,102,1 

79,102,179,96,188,96,180,88,180 

2O0 DATA 194,84,194,92,194,92,198,112, 

198,112,208,130.5,208,130.5,216,141,21 

6.141.224.148 

210 DATA 224,148,232,152,232,152,240,1 
54 

220 DATA 184,84,186,104,186,104,189.5, 

120.189.5.120.196.136.196.136.204.148 
230 DATA 204,148,216,160,216,160,228,1 
68,228,168,240,172 

240 DATA 182,122,184,132,184,132,188,1 


40,188,140,196,152,196,152,208,164,208 

,164,220,172 

250 IF R<68 THEN 30 

260 IF R=68 THEN 500 

310 REM 

320 REM FILL 

330 REM 

4O0 0=0 

50O READ A,B,C,D:PLOT A,B:POSITION C,D 
:Q = Q + 1 

900 POKE 765,1 

910 XIO 18, It6,0,0, “5 : •* 

1000 DATA 144,13,144,76,144,76,142.5,9 
4,142.5,94,140,108,140,108,135,122,135 
,122,126,137,126,137,120,145 
1010 DATA 120,145,114,151,114,151*108, 
155.5,108,155.5,100,158.5,100,158.5,88 
,160,88,160,88,180 

1020 DATA 160,16,160,176,184,21,184,84 

1030 DATA 184,84,186,104,186,104,189.5 

,120,189.5,120,196,136,196,136,204,148 

1040 DATA 204,148,216,160,216,160,228, 

168,228,168,239,171 

2000 IF Q<20 THEN 500 

2O10 IF Q=20 THEN 2800 

2500 REM 

2510 REM *** MACHINE LANGUAGE *** 

2520 REM 

2800 POKE 559,34:FOR X=1 TO 1000:NEXT 
X 

3000 FOR 1=1664 TO 1673:READ A:POKE I, 
A:NEXT I 

3010 DATA 232,142,10,212,142,24,208,76 
,128,6 

3020 ? USR(1664):RETURN 
3630 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 552,194,141,406,200,562,472,981 

,265,567,271,550,605,686,546,6998 

130 DATA 16,87,243,89,84,805,118,371,6 

01,330,184,540,938,889,345,5640 

250 DATA 655,495,81,759,87,225,685,793 

,764,530,838,34,78,73,592,6689 

2010 DATA 864,292,243,294,870,63,617,1 

61,786,4190 
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MULTIPROCESSING 


16K Cassette or Disk 
by Mark Chasin 


No, this article will not enable you to set up a time¬ 
sharing service on your ATARI home computer, but 
it will demonstrate how to implement a form of 
multiprocessing which has been used in a number of 
recently released programs for the ATARI. To un¬ 
derstand the principles of this program, you will 
need some background on how the video display 
operates. 

The beam of electrons generated in the cathode 
ray tube of your TV set is focused and directed at the 
phosphors on the screen. The beam begins scanning 
the screen at the upper left corner, and proceeds 
across the screen from left to right. At the right edge, 
it returns to the left side and drops down one scan 
line, and proceeds to the right again. This process is 
repeated 262 times until the whole screen has been 
scanned, and then the beam is turned off and re¬ 
turned to the upper left corner to repeat the process 
again, sixty times a second. 

This seems like a great deal to handle in one- 
sixtieth of a second, but your ATARI has a machine 
cycle time of 560 nanoseconds, so in that time in¬ 
terval, the ATARI can execute approximately 
30,000 cycles. The result of this is that when the 
beam returns to the upper left corner of the screen, 
there is a good deal of time to waste before it must 
start scanning again. At this point, the ATARI goes 
off on its own, performing a number of housekeep¬ 
ing functions, updating timers and the like. Ulti¬ 
mately, it returns to the business of drawing on the 
screen. 

The folks who built your ATARI designed the 
system so that it could be modified easily by anyone 
wanting to do so, and the remainder of this article 
will discuss such a modification. The computer 
"knows” where to go during the wait described 
above because two memory locations contain a hexa¬ 
decimal address telling it where to go, and every time 
it gets to the upper left corner of the display, it looks 
in these memory locations and goes to the indicated 
address, where the housekeeping routines are stored. 
This process is called vectoring. There are actually 
two independent routines performed during each 
interval, and separate vectors exist for each. The im¬ 


mediate vertical blank vector is found at hexadeci¬ 
mal address $0222 and $0223, and the second vec¬ 
tor, called the deferred vertical blank vector, is found 
at $0224 and $0225. What we are about to do is 
change the address located at $0224, $0225 to point 
to our own routine, and then we’ll jump back into 
the routine that the ATARI was originally pointing 
to. When this is accomplished, our routine will 
execute 60 times per second, and will continue to 
execute until we either turn off the computer or hit 
SYSTEM RESET. This will be totally independent 
of anything else we may be doing at the time, such as 
programming, editing, or playing a game! 

The BASIC program shown in Figure 1 is simply 
an implementation in BASIC of the Assembly lan¬ 
guage program shown in Figure 2, so I will describe 
the operation of the Assembly language program in 
detail. First, I will list the locations and their uses 
within the program. 

COUNT 1 — used to determine how many 
times we have gone through the routine, to cal¬ 
culate when to start and stop the notes to be 
played. 

COUNT 2 — used to remember which note 
the routine is playing. 

VVBLKD — the location of the deferred 
vertical blank vector. 

SETVBV — an ATARI routine, described 
in more detail below. 

MUSIC — the location where the list of 
notes to be played is stored. 

RETURN — this is where we need to jump 
to return to the ATARI housekeeping routines. 

SND — the frequency register for SOUND 
O. 

VOL — the distortion and volume register 
for SOUND O. 

Lines 130 and 170-190 are housekeeping func¬ 
tions of this routine. Line 130 provides the PLA 
instruction necessary for accessing the routine from 
BASIC, and lines 170-190 set both COUNTs to 0. 
Lines 230-270 repoint the delayed vector to our 
routine, as follows. Since the 6502A inside your 
ATARI is an 8 bit processor, we can only handle one 
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byte at a time. It should be obvious that if the com¬ 
puter tries to access this vector after we have changed 
one byte of the address, but before we have changed 
the second, the computer will go on a wild goose 
chase looking for where it should be. To prevent this, 
those clever folks who wrote the operating system 
for your computer built in a routine, called SETVBV, 
which will change these vectors without the chance 
of fouling things up. To use it, we load the Y register 
with the new vector low byte, and the X register with 
the new vector high byte, $20 and $06 respectively 
in this case, since our routine is loaded at $0620. We 
then load the accumulator with a 7 if we are setting 
the deferred vector, or a 6 if the immediate vector, 
and then we JSR to the subroutine SETVBV. Presto! 
Our vector is changed, and the routine starts oper¬ 
ating. 

This routine will play a little familiar background 
music while you slave away over a hot computer. 
Later on, I’ll describe how to change the tune to your 
own selection. The routine starts on line 320. This is 
the first time through, so we increase COUNT 1 to 
one. If COUNT 1 = 12, we’ll turn the note off, and 
when COUNT 1 = 15, we’ll play the next note, and 
reset COUNT 1 to 0. Lines 360-370 shut off the 
note, lines 410-420 reset the count to 0, and lines 
430-470 play the next note. The tune consists of 
eight notes repeated over and over, and COUNT 2 
keeps track of which note is being played. When it 
gets up to 8, it’s reset to 0 (lines 480-530), so the 
first note is played right after the eighth. If COUNT 
1 is not equal to either 12 or 15, the routine ends and 
returns to the normal housekeeping functions per¬ 
formed by the ATARI during the vertical blank 
period (line 400). Also, after a new note is started, 
the same thing happens (line 540). The table of notes 
played in the tune is located in line 590. 

The BASIC program in Figure 2 simply converts 
the instructions described above into decimal form, 
and POKEs the routines into the correct place in 
memory. The routine is then set in motion with the 
USR call in line 27000, and from that point on, can 
be ignored. It will continue by itself! 

Changing the tune being played is very simple. 
Choose a song in which all the notes are the same 
length, e.g., quarter notes. In line 24000, change the 
1639 to (1632+the number of notes in your tune-1), 
replace the data in lines 25000 and 26000 with the 
notes for your tune, and change the 8 in line 22000 
to the number of notes in your tune. Remember, the 
tune will play over and over, so pick something 
which sounds good on repetition. 

The routine presented here can be ended by a 
power-off, power-on sequence, or by a SYSTEM 
RESET. A third method, probably more useful for 
use in a program, is this: 

POKE 1562,194:POKE 1544,98:P0KE 1546,2 

28:X=USR(1542J:50UND 0,0,0,0 


This is a simple demonstration of the use of verti¬ 
cal blank interrupt routines. There are many other 
potential uses for this approach, such as background 
music for another program, checking for keyboard 
or joystick input during a program, or implementa¬ 
tion of multitasking. It is perfectly feasible to have 
two completely separate programs running "simul¬ 
taneously,” but the programming for this gets fairly 
complicated. One program would run in real time, 
and the other during the vertical blank interrupt 
routines. Play around with the ideas presented here, 
and learn all about simultaneous processing. □ 


Figure I. 

8800 REM XKXXXXXXXXXXXKXXKKXKX FIRST, 
ME'LL POKE IN THE LINES FROM 130-270 
OF THE ASSEMBLY LISTING XXXXXXXXXXXX 
9000 RESTORE 10000:FOR 1=1536 TO 1552: 
READ A:P0KE I,A:N£XT I 
10000 DATA 104,169,0,133,192,133 
1100O DATA 194,160,32,162,6,169 
12008 DATA 7,32,92,228,96 
13000 REM KXXXXKKKKKXXXXX - XXXKXXXKKXXXX 
THEN ME * LL POKE IN THE MAIN ROUTINE 
XXXXKXXXXXKXXKKXKKKXXXK - XXXKXXXKXKXKKX 
14000 RESTORE 15000:F0R 1=1568 TO 1619 
.'READ A : POKE I, A : NEXT I 
15000 DATA 230,192,166,192 
16000 DATA 224,12,144,5,169,0 
17008 DATA 141,1,210,224,15,176 
18000 DATA 3,76,98,228,169,0 
19000 DATA 133,192,166,194,189,96 
20800 DATA 6,141,0,210,169,166 
21000 DATA 141,1,210,230,194,166 
22000 DATA 194,224,8,144,4,169 
23000 DATA 0,133,194,76,98,228 
23500 REM KXKKXKXKKXKXKXXK * K ** XXKXXXXX 
FINALLY, WE'LL POKE IN THE TABLE OF NO 
TES KKKXKMKKXXXKXXXMXKXXXXKXXXXXXXXKK 
24800 RESTORE 25000:FOR 1=1632 TO 1639 
:READ AIP0KE I,A:NEXT I 
25000 DATA 243,243,217,243,204,243 
26000 DATA 217,243 

26500 REM MXMXXXXXXKXXKKKKKKMKXK - K - K - XX - XX 
N0M ME'LL RUN THE ROUTINE! ■XttX X XX XKKX 
27000 X=USR(1536) 


CHECKSUM DATA 
(See pgs. 7-10) 

8600 DATA 133,466,426,611,26,547,951,8 
74,164,587,365,735,335,421,397,7038 
23000 DATA 403,616,945,911,197,274,175 
,3521 




Figure 2. 


10 *= 18600 
20 COUNT 1 = 380C8 
30 W8LKD = $8224 
48 COUNT2 = 380C2 
58 SETVBV = 3E45C 
60 MUSIC = 30660 

79 RETURN = $E462 

80 SND = $0280 
?0 VOL = $0281 
0180 ; 
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Kilo ; PLA FOR SASIC ACCESS 
8128 ; 

8136 PLA 


8148 

8158 

8168 

8178 

8188 

8198 

8288 

8218 

8228 

8238 

8248 

0258 

0260 

8278 

8280 

0298 

0380 

0318 

0328 

8338 

0348 

0358 

0368 

8378 

0388 

8398 

8400 

0418 

0420 

8438 

8448 

0458 

3468 

0470 

0480 

8498 

0500 

0518 

8528 

0530 

e540 

8558 

0560 

8578 

0580 

8598 


; INITIALIZE COUNTERS TO ZERO 

’LDA 88 
STA COUNT1 
STA COUNT2 

; NOW RESET DEFERRED VECTOR 

’lDY 8$20 
LDX 8586 
LDA 807 
JSR SETV8V 
RTS 

• MAIN INTERRUPT ROUTINE 

’#= $0628 
INC COUNTi 
LDX COUNT! 

CP.X 812 :TIME TO STOP NOTE? 

BCC K1 ;NO 

LDA #8 ;YES, SO STOP IT 
STA VOL 

K3 CPX 815 ; 15/60 SECONDS GOME? 

BCS PLAY ;YES, PLAY NEXT NOTE 
JMP RETliraN ;N0, END INTERRUPT 
PLAY LDA 80 

STA COUNT! ;RESET COUNT! TO ZERO 
LDX COUNT2 ;6ET NOTE TO PLAY 
LDA MUSIC,X ;L00K IT UP 
STA SND ;SET IT'S FREQUENCY 
[r^ 8$A6 

STA VOL ;SET PURE NOTE,V0LUME=6 
INC COlBNT2 ;SET UP NEXT NOTE 
LDX C0UNT2 

CPX 88 ;ALL NOTES USED UP? 

BCC DONE ;NO 

LDA 88 ;YES, START OVER AGAIN 
STA COUNT Z 

DONE JMP RETURN ;ALL DONE 
i TABLE OF MUSICAL NOTES 
'*= $8660 

,BYTE 243,243,217,243,204,243,217,243 


Graphics 10 GTIA Demo 


10 REM GRAPHICS 10 GTIA DEMO 
20 REM 

30 GRAPHICS 10 

40 REM CHANGE DATA TO CHANGE COLORS 
50 FOR CN=0 TO 7:READ CO:POKE 705+CN,C 
V : NEXT CN:DATA 6,12,23,42,53,62,73,84 
60 C=0:SETCOLOR 4,C,0 
70 FOR X=0 TO 39 
80 FOR Y-0 TO 95 

YW*Ywf P~ X! VMr95 “ Y : DISTANT f SQR (XMKXM+ 

100 COLOR l+8*tDIST/8-INTCDIST/8IJ 

110 PLOT X,Y 

120 PLOT 79-X,Y 

130 PLOT X,191-Y 

140 PLOT 79~X,191-Y 

150 NEXT V 

160 NEXT X 

170 REM ROTATE COLOR REGISTERS 
180 CHOLD=PEEKC705) 

190 X=705 

200 POKE X,PEEK CX + 1J 
210 X=X+1:IF X <712 THEN 200 
220 POKE 712,CHOLD 
230 GOTO 180 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 989,253,992,750,196,890,294,29 
7,224,512,822,151,427,756,775,8328 
160 DATA 776,485,793,323,635,532,502,7 
18,4764 





GRAPHICS 
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MOVING PLAYERS 
IN BASIC 


16K Cassette or Disk 


by Tom Hudson 


Player-missile graphics are one of the most 
powerful graphic features of ATARI personal 
computer systems. Unlike traditional graphics, 
players and missiles can be moved around on the 
screen without disturbing the existing display. 

In order to use players and missiles, one must first 
reserve a portion of memory. Once this is done, the 
user can begin designing and displaying the players 
and missiles. 

The problems begin when the user wants to move 
a player or missile around on the screen. Horizontal 
movement is done easily. A POKE to the appropriate 
horizontal position memory location will move the 
desired player to any horizontal location on the 
screen. If the user wants to move a player or missile 
vertically, he or she must copy the P/M bit image to 
another location in memory. BASIC is too slow to 
do this smoothly, but it can call a machine-language 
subroutine to do the "dirty work.” 

Designing Players 

Before we start using the player movement 
subroutine, we must have some sort of graphic image 
to place in the player. 

Players are eight pixels (picture elements) wide, so 
the first step in designing the player image is to draw 
a matrix eight cells across and as tall as the desired 
image. In the "two line” resolution player mode 
(each pixel in the player is two television scan lines 
tall), the player can be up to 128 pixels high. The 
computer can display players with pixels one scan 
line tall, but the one-line resolution requires twice 
the memory of the two-line mode. This 
demonstration uses the 2 line resolution in order to 
save memory. For our purposes, we will set up an 
8 x 10 matrix to design the player image (Figure 1). 


Figure 1. 



If you look at Figure 1, you will notice numbers 
over each column in the matrix. These numbers 
range from 1 on the right to 128 on the left. These 
numbers will be used to create a DATA statement 
that will represent a player image. 

Figure 2. 

128 64 32 16 8 4 2 1 

255 
129 
129 
231 
129 
129 
255 
0 
0 
0 
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Figure 2 shows the simple player image used in 
the demonstration program following this article. 
The number to the right of each row is the total of the 
column numbers in which a pixel is "on.” If all pixels 
in a row are on, the number is 255 (128+64+32+ 
16+8+4+2+1). If no pixels are on, the total would 
be zero. You will note that the player image in figure 
2 is seven pixels tall, meaning that in order to display 
this player image we will have to move seven bytes to 
player memory. Try designing your own player 
images using this method. Remember that players 
using the two-line resolution mode can be up to 128 
pixels tall. 

The program. 

Once you have designed your player images, you 
are ready to display them with the computer. The 
BASIC program in Listing 1 will move all four 
players around on the screen. It calls the P/M 
movement assembly language routine, shown in 
Listing 2. 

As listed, the program will move the shape 
designed in Figure 2 around on the screen at random. 
The shape of the player is stored as a series of bytes in 
the string PO$. By placing your player image data in 
line 420, you can change the shape that appears on 
the screen. There are currently seven bytes in line 
420, but if your player image has a different number, 
place the appropriate value in lines 130 and 290. 

Lines 110-180 — Set up the subroutine and 
turn on the P/M graphics. 

Lines 220-230 — are for demonstration 
purposes only. You can put your program code 
in this section. 

Line 110 — Loads the string PMMOV$ with 
the P/M movement subroutine. 

Line 130 — Places the data that defines the 
graphics image into the string P0$. If your 
player image is more or less than seven pixels 
tall, place the appropriate value in this line. 

Line 140 — Th is line tells the system where 
the P/M memory is located. 

Line 150 — This line saves the address of the 
string that holds the player image data. 

Line 170 — Turns on P/M direct memory 
access so that the image will appear on the 
screeen. 

Line 180 — Sets the color of player 0 to 
blue. The value 136 is derived by multiplying 
the color number (8) by 16 and adding the 
luminance value (8). The result is (8* 16)+8 or 
136. 

Line 220 — Initializes the X and Y 
coordinates of the player. The coordinates refer 
to the upper left corner of the player. The X 
coordinate may range from 0-255, and the Y 
coordinate from 0-127. 

Lines 230-280 — This section simply 
changes the player’s coordinates randomly. 


Line 290 — This USR call moves the player 
to the desired X and Y location. This statement 
has 7 parameters inside the USR parentheses: 

A=USRCMOVE,0,PMB,PMD,X,Y,73 

"MOVE” is set up in line 110. It is the 
address of the P/M mover subroutine. Do not 
change this value. 

"0" means that we want to move player zero. 
This value can range from 0-3, moving any one 
of the four players. 

"PMB” is the P/M base address set up in line 
150. Do not change this value. 

"PMD” is the address of the string that holds 
the player image data. This should be set to the 
address of the string you are using to hold your 
player shape data. If your player shape data is in 
a string called "PL$,” you could replace PMD 
with ADR(PL$). 

The X and Y variables are the horizontal and 
vertical coordinates of the player. 

The last parameter, "7,” indicates that the 
player we are displaying is 7 pixels tall (see lines 
130 and 420). If the player you design is 10 
bytes long, place a 10 here. 

Line 300 — This line determines when to 
randomly change the player’s movement 
direction. If a random number is chosen that is 
greater than .95, a new direction is tried. 

Line 310 — This line loops back to line 240 
if no new direction is needed. 

Lines 350-380 — These lines contain the 
assembly-language code for the player 
movement subroutine. Do not change these 
lines, or the subroutine will probably not work. 

Line 420 — This line contains the values 
which represent the player image’s shape. Place 
your image values here. 

Summary. 

The ATARI computer systems’ player-missile 
graphics capabilities are actually very easy to use, 
given the proper tools. The subroutine presented 
here will help even the beginning ATARI 
programmer experience the wonders of player- 
missile graphics. □ 


Listing 1. 

10 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXX X 
28 REM * P/M MOVER SUBROUTINE DEMO X 


38 REM * * 
40 REM * BY TOM HUDSON * 
SO REM * * 
60 REM X A.N.A.L.O.G. COMPUTING X 


70 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
80 REM 

90 REM X XXXXXXXXXX SETUP XXXXXXXXXXX 
100 REM 

1X0 DIM PMMOUStl003,P0S(303:M0VE=ADR(P 
MM0V$3:FOR X=1 TO 108:READ N:PMM0V$(X3 
=CHRS IN3 I NEXT X:REM XREAD ML DATAX 
120 REM XXX NON READ SHAPE DATA XXX 
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130 FOR H=1 TO 7:READ N:POSCKJ=CHRS<m 
;NEXT K 

140 PNBfl5E=INT C(PEEK C1451+3J/4J *4 : POKE 
54279,PMBftSE:REM *** SET UP P/M OREO 

150 PMB=PMB0SE*256 

160 PMD=ODRCPOS3:REM *** P/K DOTO ODDR 
ESS *** 

170 POKE 559,46:P0KE 53277,3 : REM *** p 
/M DMO *** 

180 POKE 704,136:REM *** PLOYER 0 COLO 
R *9H( 

190 REM 

200 REM »*** YOUR PROGROM HERE! **** 
210 REM 

220 X=128:Y-64 

230 XI=1-IKT(RHDC0J*33:YI=1 _ IHT(RNDCOl 
*3J 

240 X=X+XI:Y=Y+YI 

250 IF X<50 THEN X = 50:G0T0 270 

260 IF X>190 THEM X=190 

278 IF Y<20 THEN Y=20:GOTO 290 

280 IF Y>110 THEM Y=110 

290 O-USR (MOVE,0,PMB,PMD,X,Y,7) 

300 IF RNDC0J>0.95 THEN 230 
310 GOTO 240 
320 REM 

330 REM *** PM MOVER DOTO *** 

340 REM 

350 DOTO 216,104,104,104,133,213,104,2 

4,105,2,133,206,164,133,205,104,133,20 

4,104,133,203,104,104,133,208 

360 DOTO 104,104,133,209,104,104,24,10 

1,209,133.207,166,213,240,16,165,205,2 

4,105,128,133,205,165,206,105 

370 DOTO 0,133,206.202,208,240,160,0,1 

62,0,196,209,144,19,196,207,176,15,132 

,212,138,168,177,203,164 

380 DOTO 212,145,205,232,169,0,240,4,1 

69,0,145,205.200,192,128,208,224,166,2 

13,165,208,157,0,208,96 

390 REM 

400 REM *** PLOYER IMOGE DOTO *** 

410 REM 

420 DOTO 255,129,129,231,129,129,255 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DOTO 532,930,996,64,0.483,544,265.9 

09,74,765,328,743,901.536,8070 

160 DOTO 729,778.445,181,552,79.854.96 

8,479,920,983,921,954,424,374,9561 

310 DOTO 704,84,588,90,639.732,435,188 

,105,191,83,56,3887 


Listing 2. 


U! 

8308 

0118 

0128 

9138 

0148 

8158 

0160 

0178 

0180 

0170 

8200 

8218 

8228 

3238 

8248 

8258 

0260 


;plater-missile mover subroutine 

■Bt TOM HUDSON 
lA.N.ft.L.O.G. COMPUTING 


;PAGE ZERO USAGE 

PMSTR = ice 
PLADR = 3 CD 
PMEND = 1CF 
XPOS = 108 
TPOS = $0! 

HOLD - 3D4 
PLNUH = 1D5 


;P/M SASIC STRING 
jPLAYER ADDRESS 

sPlater image end 
;>: position 

;Y POSITION 
;HOLD AREA 
;PLAYER # Tu HOVE 


0276 {OPERATING SYSTEM EQUATES 
8288 ; 

0278 HPOSP0 = $0080 
8388 ; 

0318 :PROGRAM STARTS HERE 1 


0328 

$ 


0338 

*= 1 

56800 

0348 

START 

r CLD 

0350 

PLA 


8360 

PLA 


8378 

PLA 


8388 

STA 

PLNUM 

0378 

PLA 


0400 

CLC 


0418 

ADC 

#2 

6420 

STA 

PLADR+1 

0438 

PLA 


8440 

STA 

PLADR 

0458 

PLA 


0468 

STA 

PMSTR+1 

0479 

PLA 


84B8 

STA 

PMSTR 

0478 

PLA 


8508 

PLA 


0518 

ST A 

XPOS 

8528 

PLA 


8530 

PLA 


0548 

STA 

YPOS 

0558 

PLA 


0568 

PLA 


0578 

CLC 


8536 

ADC 

YPOS 

0578 

STA 

PMEND 

0608 

LDX 

PLNUM 

0618 

BEU 

ENDCAL 

0620 

PLChLC LDA PLADR 

0638 

CLC 


0648 

ADC 

#128 

0658 

olA 

PLADR 

@668 

LDA 

PLADR+1 

0678 

ADC 

#8 

8688 

STA 

PLADR+1 

0670 

DEX 


8780 

BNE 

PLCALC 

07I8 

ENOCAL LDY #8 

0728 

LDX 

#8 

0730 

COPY! 

.P CPY YPOS 

0748 

BCC 

ZERO 

0758 

CPY 

PMEND 

8768 

BCS 

ZERO 

0770 

STY 

HOLD 

8788 

T'Xft 


0778 

TAY 


3800 

LDA 

(PMSTR),Y 

0318 

LDY 

HOLD 

8828 

rtQOu 

ST A 

TMV 

<PLADR),Y 

Oootf 

0840 

i 1 < A 

LDA 

#8 

8350 

BEQ 

NEXT 

0868 

ZERO 

loa #e 

0878 

ST A 

’.PLADR) ,Y 

0888 

NEXT 

I NY- 

0370 

CPY 

Ill 23 

0908 

ONE 

COPYLP 

0718 

LDX 

PLNU1 

8720 

LDA 

XPOS 

0738 

STA 

HP0SP8,X 

0940 

RTS 


0758 

. ENE 

/ 


{ANY ADDRESS 
{CLEAR DECIMAL NODE 
{DISCARD 
{DISCARD tf HI 
{PULL PLAYER 8 LO 
;AND SAVE 1T ! 

{PULL P/M BASE HI 
{ADD OFFSET TO GET 
{PLAYER MEMORY ADDR 
{AND SAVE! 

{PULL P/M BASE LO 
;AND SAVE' 

{PULL STRING HI 
SAVE' 

{PULL STRING LO 
:AND SAVE! 

:DISCARD X HI 
;PULl X LG 
{AND SAVE IT' 
{DISCARD Y HI 
{PULL T LO 
{AND SAVE IT' 
{DISCARD LENGTH HI 
{PULL LENGTH LG 
{ADD Y POSITION 
;T0 GET END 
;AND SAVE IT! 

:GET PLAYER# 

■NO INDEX NEEDED! 
{ADD 128 TO 
:PLAYER 
.■ADDRESS 
; T f! 

{POINT TO 

{NEXT 

{PLAYER. 

{ANOTHER ADJUSTMENT 
{YES! 

{ZERO P/M COUNT 
{ZERO STRING C011TT 
{COPYING DATA YET 0 
{NO 1 

{FINISHED COPYING"' 
YVES' 

{SAVE Y REG 
{MOVE X REG... 

:T0 Y REGISTER 
{GET P/M BYTE 
:GET p/M OFFSET 
{CHANGE PLAYER' 
{NEXT STRING BYTE. 
{FORCE BRANCH 
;TQ NEXT BYTE 1 
{ZERO OUT... 

{PLAYER BYTE' 

{NEXT P/M BYTE 
;DCNE M/COPY? 

;NOT DONE YET * 

;GE T PLAYER # 

•NOW JUST SET 
:X LOCATION 1 
{FINIS' 
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USING Dlls 


16K Cassette or Disk 
by Joseph T. Trem 


For many years there have been powerful com¬ 
puters on the market which performed multi-tasking 
functions. Not until a few years ago did the home 
computer acquire this capability. At last! ATARI! 

Having a 6502 microprocessor for its brain, your 
ATARI computer has the capability of using inter¬ 
rupts. An interrupt is a tricky way of freezing the 
state of the microprocessor while performing some 
other function, then moving on when completed. 

Here is an example. On a raster scan TV, the 
picture you see is drawn sixty times a second. The 
beam starts in the upper left-hand corner and even¬ 
tually ends up in the lower right-hand corner. This is 
done sixty times a second. The time taken for the 
beam to travel from the bottom of the screen back to 
the top is called vertical blank. During vertical blank, 
there is plenty of time for other processing. Using an 
interrupt, one could check for vertical blank. When 
vertical blank occurs, it is possible to perform some 
other function, then continue on. Some of the more 
common functions would be moving player/mis¬ 
siles, updating score counters, changing colors... all 
between Vblank, as it is more commonly called. If 
these functions are performed during Vblank, there 
is no unsightly flicker on the screen. Besides, Vblank 
is processing time to kill, right? 

ATARI goes a step further by implementing a dis¬ 
play list interrupt or DLL On a raster scan TV, the 
beam sweeps across the screen, from left to right, 
moves down one line, then does it again. One sweep 
of the beam is one scan line. It takes 262 sweeps of 
that beam to create a single frame on your TV, all 
done sixty times a second. In other words, there are 
262 scan lines available on your TV. 

ATARI designed their computer to evolve around 
the architecture of your TV set. Even better, the dis¬ 


play list uses all combinations of the scan line from 
graphics 0 to graphics 8 and allows you to set up a 
DLI on any line. For example, one could draw a scan 
line, change the background color, and so on. The 
final picture will appear to have a different color on 
each line. 

To set up a DLI, there are a few steps which have to 
be taken. First, we have to create a DLI routine in 
machine language that will do what we want. This is 
called a service routine. Then we must let the micro¬ 
processor know where to find that routine by vec¬ 
toring through $200 (low byte) and $201 (high 
byte). That’s 512 and 513 decimal. Next, we set the 
display list lines that we want the service routine to 
occur after with a DLI instruction. Finally, we must 
enable the DLL 

Because the concept of the DLI is a hard one to fol¬ 
low and needs some understanding of Assembly lan¬ 
guage, I have presented an example. . .a picture is 
worth a thousand words! This program, written in 
BASIC, twinkles a starfield while running player/ 
missiles... both appearing independent of one 
another. 

The program is well documented. In the example, 
the service routine is located at $600. Every display 
list line has been set in the graphics 7 mode with a 
DLI instruction (Figure 1). This was determined by 
using the chart in Figure 2. The DLI instruction for 
graphics 7 is 141 decimal. Included with the BASIC 
program is the assembled listing of the service rou¬ 
tine which simply stuffs colors in the color register. 

Hopefully, this program will help you gain a better 
understanding of the DLL It is among the most 
powerful programming tools you can use. Take some 
time to understand the concept, and you will greatly 
increase your programming expertise. □ 
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Standard Graphics 7 
Display List 


70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

4D 

Antic Mode 13 
(Basic mode 7) 

60 


70 


OD 


OD 


OD 


OD 


OD 



New Graphics 7 Display 
List with DLI Set 


70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

4D 

Antic Mode 13 
(Basic mode 7) 

60 


70 


8D 

Antic Mode 13 
with DLI set 

8D 


8D 


8D 


8D 



Figure 1. 


Display List Interrupt Instruction Chart 

Graphics 

Mode 

DLI Instruction 

Basic 

Antic 

Hex 

Decimal 

0 

$02 

$82 

130 

None 

$03 

$83 

131 

None 

$04 

$84 

132 

None 

$05 

$85 

133 

1 

$06 

$86 

134 

2 

$07 

$87 

135 

3 

$08 

$88 

136 

4 

$09 

$89 

137 

5 

$0A 

$8A 

138 

6 

$0B 

$8B 

139 

None 

$0C 

$8C 

140 

7 

$0D 

$8D 

141 

None 

$0E 

$8E 

— 

8 

$0F 

$8F 

143 


Figure 2. 


108 REM FLICKERING 5TARFIELD 
HO REM BY JOE TREM (C) 1382 
120 REM 

130 REM SETS GRAPHICS 7 FULL SCREEN, D 
RAMS SURFACE WITH SOUND 

140 GRAPHICS 23:POKE 708,136:COLOR 1:F 
OR X=8 TO 153:SOUND 0,10,X,4:PLOT X,35 
:DRAMTO X,88+RNDCO)*5:NEXT X 
150 REM CALCULATES DISPLAY LIST, SETS 
SPEED OF PLAYER TO 0 

160 SP = 0:DLST = PEEK(560)+PEEK C56II*256 
170 REM SETS UP DLI FOR EACH GRAPHICS 
7 SCAN LINE 

180 FOR L=6 TO 84:P0KE DLST+L,141:NEXT 
L 

130 REM READS MACHINE LANGUAGE ROUTINE 
INTO PAGE 6 

200 FOR J=0 TO 3:READ A:POKE 1536+J,A: 
NEXT J 

210 COLOR 3:REM SETS COLOR TO FLICKER 

220 REM PLOTS STARS HITH SOUND 

230 FOR X=1 TO 50:SOUND 0,X,X,4:PL0T R 

ND(01*153,RND(01*75:NEXT X 

240 REM SETS STARTING ADDRESS FOR DLI 

(PAGE 6) AND ENABLES DLI 


250 POKE 512,0:POKE 513,6:P0KE 54286,1 
32 

260 REM SETS UP PLAYER/MISSILE 0 

270 YP=0:POKE 553,62lPMBA5=PEEK(1061-3 

2:POKE 54273,PMBAS:POKE 53277,3:PM0=PM 

BAS*256+1024 

280 GOSUB 350 

230 REM PLAYER/MISSILE COLOR, MOVE RIG 
HT 

300 POKE 704,INT(RND(0)*15)*16+8:FOR X 
-30 TO 230 STEP SP:POKE 53248,X:SOUND 
0,X,8,4:NEXT X 
310 GOSUB 350 

320 REM PLAYER/MISSILE COLOR, MOVE LEF 
T 

330 POKE 704,INT(RND(0)*15)*16+8:FOR X 
-230 TO 30 STEP -SP:POKE 53248,X:SOUND 
0,X,8,8:NEXT X:GOTO 280 
340 REM ROUTINE ERASES OLD PLAYER, DET 
ERMINES SPEED, AND VERTICAL LOCATION 0 
F PLAYER 0 

350 SP=SP+1:F0R X-YP TO YP+4:P0KE PM0+ 
X,0:NEXT X:IF SP>15 THEN SP=1 
360 YP=30+RND(0)*150:POKE PM0+YP,24:P0 
KE PM0+YP+1,255:POKE PMO+YP+2,255:POKE 
PM0+YP+3,24:RETURN 
370 REM MACHINE LANGUAGE DATA 
380 DATA 142,24,208,64 

330 REM NOTE TO ASSEMBLY PROGRAMMERS.. 
MSYNC MAS NOT USED FOR MORE ERRATIC FL 
ICKERING 


CHECKSUM DATA 
(See pgs. 7-10) 


100 DATA 130,743,80,563,86,100,733,712 
,438,713,513,482,263,234,178,6226 
250 DATA 334,406,125,330,763,160,371,4 
16,636,808,181,53,347,733,731,3100 


Assembly listing. 


0100 ; FLICKERING STARFIELD 
0110 J DLI SERVICE ROUTINE 
0120 ; 

0130 } ADDRESS $D018 IS THE 
0140 J COLOR/LUMINANCE REGISTER 
0150 J OF PLAYFIELD 2 
0160 ; 

0170 C0LPF2 = SD018 
0180 ; 

0130 *=$600 

0200 ; 

0216 ; SAVE MHATEVER IS IN THE 
0220 J X-REGISTER INTO PLAYFIELD 
0230 ; COLOR 2 HARDMARE REGISTER 
024O ; 

025O STX C0LPF2 ; STORE COLOR 
0260 RTI ; RETURN FROM INTERRUPT 
0270 ; 

0280 .END 
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A GRAPHICS 
CUPPING ROUTINE 


16K Cassette or Disk 


by Tom Hudson 


Probably every ATARI user who has ever dabbled 
in the graphics area has encountered the infamous 
"ERROR 141 — CURSOR OUT OF RANGE.” 
This error message occurs when you try to PLOT or 
DRAWTO a point which is off the screen. The 
program listings presented in this article will 
demonstrate a BASIC subroutine which eliminates 
this problem, while drawing the portion of the line 
which is on the screen. 

Listing 1 is the clipping routine. Type in this sub¬ 
routine and check it for typing errors. List this onto 
tape (LIST "C:”) or disk (LIST "D:filenam), so 
that it can be easily merged with other programs. 

Listing 2 is a demonstration of the clipping 
routine’s capabilities. This program is a general- 
purpose shape rotation routine and will be explained 
in detail later. Type NEW and enter this listing into 
your computer, then check it for typing errors. 

When you are sure Listing 2 has been entered 
correctly, ENTER the clipping routine from tape 
(ENTER "C:”) or disk (ENTER "D:filename”). 
The two listings will merge, forming one program. 
RUN the program. You will see a square appear. It 
will begin rotating and increase in size until its 
corners run off the screen completely, and it 
disappears altogether. Press BREAK to stop the 
program. 

How it works. 

Line 150 — This line sets the BASIC 
DEGREE flag. This tells the computer that all 
angles will be expressed in degrees. 

Line 160 — This line sets up a full-screen 
GRAPHICS 6 screen. 

Line 170 — This line tells the computer to 
use color 1 when drawing. 

Line 180 — This line sets the shape size 
increment (SI) to 1.1. This means that each time 
the shape is drawn, it will be 1.1 times as large as 
the previous plot. If SI is set to 1, the shape will 
stay the same size. If SI is set to 0.5, the shape 
will shrink to half its size each time it is drawn. 


Line 190 — This line establishes the initial 
size of the shape. Since SF is set at 0.5, the object 
will start out half as big as defined. 

Line 200 — This line sets RF, the rotation 
factor, to 10. With this value, the shape will 
rotate 10 degrees counter-clockwise each time it 
is drawn. A negative value will rotate it 
clockwise, and a value of zero will result in a 
non-rotating shape. 

Line 210 — This line defines CX and CY, the 
center coordinates of the object. The present 
values will place the object at the center of the 
screen. Try other values here and observe the 
results. 

Line 220 — This line is essential to the 
operation of the clipping routine. It defines the 
limits of the screen area you wish to use. These 
values are currently set to the normal 
GRAPHICS 6 screen limits (X RIGHT=159, X 
LEFT=0, Y BOTTOM=95, Y TOP=0). By 
changing these values, a smaller "window” may 
be created. For example, make the following 
changes to line 220: 

220 HR=80:XL=40:YB=50:YT=30 

RUN the program and observe the result. 
The shape will be clipped to the new window 
limits. By using this technique, very interesting 
displays can be created with independent 
clipping windows! 

Line 230 — This line sets the DATA pointer 
to line 360. This line contains the data which 
defines the shape of the object. 

Line 240 — This line reads the number of 
points in the shape and dimensions X and Y 
coordinate work arrays accordingly. 

Line 250 — This line reads the X and Y 
coordinates of each point in the shape and scales 
them as requested in line 190. 

Lines 260-270 — These lines increment the 
rotational position of the object. Rotation 
values greater than 360 degrees are adjusted 
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properly. 

Line 280 — This line adjusts the size of the 
shape as requested in line 180. 

Lines 290-300 — These lines rotate each 
point in the shape using the BASIC functions 
SIN and COS (sine and cosine). The adjusted 
points are stored in the X2 and Y2 arrays. 

Line 310 — This line clears the screen for the 
next plot. If this line is removed, the images of 
the rotating square will build up into an 
interesting display. 

Line 320 — This line adjusts each point in 
the shape to its proper screen position by 
adding the centerpoint coordinates (defined in 
line 210). 

Lines 330-340 — These lines are very 
important, as they send the PLOT AND 
DRA WTO coordinates to the clipping routine. 
The clipping routine requires four variables: 
XI, Yl, X2 and Y2. The routine analyzes the 
coordinates and simulates the function: 

PLOT HI,Yl:DRAW!0 H2,Y2 

To see what happens when the clipping 
routine is not used, replace the GOSUB 1000 
statements in lines 330 and 340 with PLOT X1, 
Yl: DRA WTO X2, Y2 and RUN the program. 
The program will operate correctly until the 
square runs off the screen. When this happens, 
the program will end with an error condition. 

Line 350 — This line simply loops back to 
line 260, where the drawing process starts again. 

Line 360 — This DATA statement contains 
information about the shape we want to draw. 
The first number is the number of points in the 
object. Since this is a square we are using, there 
are 4 points. The rest of the data values are the X 
and Y coordinate pairs for each point. To make 
a hexagon, for example, try this data statement: 

DATA 6,11,0,6,-10,-6,-10,-11,0,-6,10,6,10 
Figure 1 is an X-Y coordinate grid which is helpful 
in defining a shape. The shape rotates around the 
intersection of the X and Y axes (0,0) which in this 
case is the center of the square. You can set up any 
shape you like merely by changing this DATA line. 
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Figure 1. 


The clipping routine. 

Line 1050 — This line clears all the flags 
which determine when clipping is necessary. 

Lines 1060-1130 — These lines check the X 
and Y coordinates to see if they have exceeded 
the screen limits defined in line 220 of the shape 
rotation demonstration. If the coordinates 
exceed the limits, flag variables are set to 
indicate this. 

Line 1140 — If both X coordinates are to the 
left or right of the screen, or both Y coordinates 
are to the top or bottom of the screen, the line 
will not show up on the screen at all, and the 
plot is abandoned. 

Line 1150 — This line sets up work 
variables to clip one end of the line, if necessary, 
and GOSUBs to line 1210 to perform this 
function. 

Line 1160 — In order to clip the other end 
of the line, this line copies the second set of 
coordinate flags to the first. 

Line 1170 — This line saves the XW and 
YW values, which are the last set of clipped 
endpoints. It then sends the X and Y endpoints 
to the clipping calculator and clips the other end 
of the line. 

Line 1180 — If any of the clipped points 
could not be placed within the clipping area, 
the plot is abandoned. 

Line 1190 — This line PLOTs and DRAWs 
the clipped line. 

Line 1200 — This line exits the clipping 
routine after the clipped line is drawn. 

Line 1210 — This line is the start of the 
clipping calculator, the heart of the clipping 
routine. If the total of the clipping off-screen 
flags is zero, no clipping is required. The XW 
and YW values are set up, and the clipping 
routine is exited. 

Line 1220 — If the line goes past the left side 
of the screen, this line calculates the point at 
which the line crosses the left limit, and saves 
the X and Y coordinates of that point. If this 
point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1230 — If the line goes past the right 
side of the screen, this line calculates the point 
at which the line crosses the right limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation 
is complete and the subroutine is exited. 

Line 1240 — If the line goes past the bottom 
of the screen, this line calculates the point at 
which the line crosses the bottom limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1250 — If the line goes past the top of 
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the screen, this line calculates the point at which 
the line crosses the top limit, and saves the X 
and Y coordinates of that point. If this point is 
on the screen then the calculation is complete 
and the subroutine is exited. 

Line 1260 — This line forces a return from 
the subroutine after all calculations are 
complete. 

Final comments. 

The graphics clipping routine can be used in many 
graphics applications where it is possible to exceed 
screen limits. This routine can be used with any 
graphics mode, and can allow the use of graphics 
"windows” anywhere on the screen. 

To use the clipping routine in your own programs, 
simply use lines 1000-1260 and set up the desired 
screen limits to the XL, XR, YT, and YB variables. 
When you want to draw a line, instead of the 
command: 

PLOT HI,Yl:DRAWT0 H2,Y2 

use the following: 

(Set up XI, Yl, X2, and Y2) 

GOSUB 1000 

This will work for any line, even those that are 
completely off the screen. □ 


Listing 1. 


100 REM XXXXXXXXXXXXX - MKXMXXKXXX 
110 REM * SHAPE ROTATION OEMO * 

120 REM * * 

130 REM * BY TOM HUDSON * 

140 REM XXXXXXXXXXXXXXXXXXX X XXX 
150 DEG 

160 GRAPHICS 6+16 

170 COLOR 1 

ISO SI=1.1 

190 SF=0.5 

200 RF=10 

210 CH=80:CY=48 

220 KR=159iKL=8:YB=95:YT=0 

230 RE5T0RE 360 

240 READ N:DIM X tN3, Y (N3,X2 CN3,Y2 CN3 
250 FOR X = 1 TO N:READ W1,W2:H(X3=M1*SF 
'Vdn-tlTK-SF'NFXT X 

260 RW=RM+RF:IF RH>360 THEN RW=RW-360: 
GOTO 32767 

270 IF RW<0 THEN RW=RW+368 

280 FOR X=1 TO N:X(XJ=XtXJ*SI;Y(X)=Y(X 

3*51:NEXT X 

290 FOR X=1 TO N:X2CX3=XtH)*COStRM3+Yt 
X3*SIN CRMJ 

300 Y2tX3=-X<XI*SINCRWJ+Y(X)*COSCRHJ :N 
EXT X 

310 GRAPHICS 6+16 

320 FOR X = 1 TO N:X2fX3=X2CX3+CX:Y2(X3= 
Y2 (XJ+CY : NEXT X 

330 FOR X=1 TO N-l:Xl=X2CXJ:Yl=Y2tXJ:X 
2=X2CX+13:Y2=Y2CX+13:G0SUB 1090:NEXT X 
340 X1-X2CNJ:Yi=Y2tN3:X2=X2tI3:Y2=Y2ti 
3 :GOSUB 1O00 
350 GOTO 260 

360 DATA 4,10,10,10,-10,-10,-10,-10,10 

CHECKSUM DATA 
(See pgs. 7-10) 

100 DATA 274,394,860,852,286,35,223,49 
2,578,583,299,36,472,202,715,6301 
250 DATA 317,285,346,819,167,988,212,4 
90,135,523,722,951,5955 


Listing 2. 


1000 REM XXXXXXXXXXXXXXXX X XX XXXXXXXXXX 
1010 REM X GRAPHICS CLIPPING ROUTINE X 
1020 REM * » 

1030 REM X BY TOM HUDSON X 

1040 REM XXXXXXXX X X X XXXXXXXXXX X X XKX X K X 
1050 L1=0:L2=0:R1=0:R2=0:T1=0:T2=0:B1= 
0 > B 2—0 

I860 IF H1<HL THEN L1=1:G0T0 1080 

1070 IF Hl> HR THEN Rl = l 

1080 IF Yl> YB THEN B1=1:G0T0 1100 

1090 IF Yl<YT THEN Ti = l 

1100 IF H2<HL THEN L2=1:G0T0 1120 

1110 IF H2>HR THEN R2 = l 

1120 IF Y2>YB THEN B2 = 1:G0T0 1140 

1130 IF Y2<YT THEN T2=l 

1140 IF Ll+L2=2 OR Rl+R2=2 OR Tl+T2=2 

OR 81+62=2 THEN RETURN 

1150 X3=X1:Y3=Y1:X4=X2:Y4=Y2:GOSUB 121 
O 

1160 L1=L2:R1=R2:T1=T2:B1=B2 

1170 H1=HW:Y1=YM:X3=K2:Y3=Y2:H4=Hl:Y4= 

Yl:GOSUB 1210 

1180 IF HI<XL OR X1>XR OR Yl<YT OR Yi> 
YB OR XW<XL OR XW>XR OR YW<YT OR YM>YB 
THEN RETURN 

1190 PLOT XI,Yl:DRAMTO XM,YW 
1200 RETURN 

1210 IF L1+T1+B1+R1=8 THEN XW=X3:YW=Y3 
:RETURN 

1220 IF LI THEN XM=XL:YM=Y3+{Y4-Y33XCX 
L-X33/IX4-X3):X3=XW:Y3=YW:IF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1230 IF R1 THEN XW=XR:YW=Y3+tY4-Y33»tX 
R-H3)/tX4-X33:X3=XM:Y3=YM:IF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1240 IF B1 THEN YM=YB:HW=X3+(X4-X33X{Y 
B-Y31/fY4-Y3);X3=XM:Y3=YW:IF X3>=XR AN 
D X3<=XL THEN RETURN 

1250 IF T1 THEN YW=YT:XW=X3+IX4-X3)»(Y 
T-Y3J/tY4-Y3J:X3=XM:Y3=YH:IF H3>=XR AN 
D X3<=XL THEN RETURN 
1260 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

1000 DATA 598,934,60,54,602,235,68,814 

,6,822,52,814,18,822,608,6507 

1150 DATA 879,618,493,947,81,785,160,9 

28,947,905,960,791,8494 
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3-D GRAPHS 
MADE FAST & EASY 


16K Cassette or Disk 


by Tom Hudson 


Thanks to ATARI’S Graph-It (TM) graphics 
package, ATARI computer owners can generate bar 
charts, pie graphs, and two- and three-dimensional 
plots. Unfortunately, when more complex three- 
dimensional plots are desired, Graph-It can take 
more than an hour to complete just one plot! 

In order to assist those Graph-It users who 
would like to see a quick rendition of their 3-D plot 
before committing themselves to a marathon wait 
with Graph-It, I have written a 3-D graph program 
which is easy to use and produces graphs very 
quickly. 

By now, many readers are probably asking, "What 
in the world is a 3-D graph?” which is not a bad 
question at this point, and one I will try to answer. 

We are all familiar with 2-dimensional (flat) 
graphs. They are usually called "line” or "bar” 
graphs. Figure 1 is a line graph of the equation 
Y=2*X. When X is four, Y is two times four, or 
eight, and so on. 

Figure 1. 



In a 3-dimensional graph, things are a little more 
complicated. As the name implies, we are trying to 
generate a 3-dimensional form, derived from an 
equation. To do this, we need three coordinates. We 
will label these coordinates X (width), Y (depth) and 
Z (height). 



Figure 2. 


We start with a grid marked with X and Y 
coordinates, then we lay this grid flat as in Figure 2 
(a good way to visualize this is to lay a piece of graph 
paper on a table in front of you). Next we use an 
equation to determine the Z coordinate. The Z value 
tells how high off the table each point on the grid is. 
The Z coordinate is always derived from the Xand Y 
values. In this way, we can see how changes in the X 
and Y values affect the Z value. For example, in the 
equation Z=(X+Y)*3, when we are at the 
coordinates X=1 and Y=3, Z would equal 12 (4 
times 3). On our graph, this would be represented as 
a small peak (Figure 3), telling us that where X=1 
and Y=3, the Z value is 12. Of course, to be useful 
this process must be repeated for each point on the 
grid so that we can see the overall results. Three- 
dimensional graphs are useful for visualizing how an 
equation will act with varying X and Y values. 
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Figure 3 


Listing 1 is a simple but effective 3-dimensional 
graph generation program. It is NOT meant as a 
replacement for the Graph-It 3-D plot program, 
but an enhancement. 

Type Listing 1 into your computer and check it 
for accuracy. When the program is correctly entered, 
you will be ready to start graphing in three 
dimensions! 

Let’s say you want a 3-D plot of a complex 
equation. You don’t know what it will look like, but 
you’d like to get some idea before you wait an hour 
for Graph-It to process it. With this program, you 
can "preview” a 3-D graph, and if you want a 
detailed copy, the same equation can be processed by 
Graph-It. An equation requiring 70 minutes on 
Graph-It can be processed by this program in five. 
Of course, the Graph-It version is much smoother 
and will do such things as automatic scaling, but if 
you need the output quickly, this program can do it. 

Let’s find out what the equation Z=(X-Y) 2 looks 
like. Line 220 is where all equations must be 
executed, so change line 220 to read: 

220 Z=(H-YJ A 2 

When the line is changed, RUN the program. The 
screen will go black for several seconds while the 
computer calculates the plot coordinates of the 
graph. When these calculations are finished, the 
screen will come back on, and the graph will be 
drawn. It’s that simple. 

How it works. 

Line 80 — Set up the arrays needed to store 
the plot points. 

Line 120 — Turn off the system’s Direct 
Memory Access (DMA). This speeds up 
calculations considerably. The only unpleasant 
side effect is that the screen goes black until 
DMA is turned on again. 

Line 160 — Set the screen limits for the 
graphics clipping routine (see lines 600-720). 

Lines 210-230 — This is a FOR-NEXT loop 
for calculating the Z value for each point on the 
grid. Line 220 is where your equation should be 
placed. Just replace the existing equation with 


your own, starting with Z=. The program will 
do the rest. 

Lines 270-300 — After all the Z values have 
been calculated, this section changes them to 
plot coordinates so that they can be placed on 
the screen. 

Line 340 — This line turns DMA on again, 
so that we can see the graph. 

Line 380 — This line draws the "zero 
reference” outline. This is simply the outline of 
the grid before the Z coordinates were 
calculated. It lets you know where zero is, 
relative to the rest of the points on the grid. 

Lines 420-430 — This section actually 
draws the grid on the screen using the data in the 
GX and GY arrays, which were built in lines 
270-300. It uses the graphics clipping routine in 
lines 600-720 just in case the lines run off the 
top or bottom of the screen. 

Lines 470-500 — These lines draw the 
vertical lines from the baseline to the corners of 
the graph. 

Line 540 — This line loops the program 
forever. Hit the break key to stop the program. 

Line 600-720 — This is a modified graphics 
clipping routine. (See A Graphics Clipping 
Routine, page 44). It is modified to only clip 
lines that extend beyond the top and bottom 
of the screen, not the sides. 

You can try any equation you like in line 220, 
just set Z to the result. Included below are a few 
interesting equations for you to try, along with 
the time required to generate the graphs. Simply 
replace line 220 with one of these equations. □ 


228 Z=SIN((X+Y~4)74*38)+38 
(Requires approx. 38 seconds) 


228 Z=S0R COBS (X~18.5) A 2+ABS(Y-5.5) A 2)* 
1.7 

(Requires approx. 2.25 Hinutes) 


228 Z- (1/SQR(SQR(ABS(X-18.5) A 2+ABS(Y~5 

.5) A 2)+4) A 2)*888-50 

(Requires approx. 2.75 Hinutes) 


220 Z=78-5QR(ABS(X~10.5) A 2+ABS (Y-5■5) A 

2) A 1.7 

(Requires approx. 2.3 Hinutes) 


228 Z- (SIR(X/18)+C0S(Y/5))*38 
(Requires approx. 48 seconds) 


228 Z=(SIN(X/10)*SIN(Y/5>)*38 
(requires approx. 48 seconds) 


20 REM * 3-D GRflPH^PROGRAK******* 
38 REM * * 
40 REM * BY T0H HUDSON » 
50 REK ****-X XXXXXXXXXXXKXXXXXX - XXXXXXXX 
60 REM 
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70 GRAPHICS 24:5ETC0L0R 2,0,0:COLOR 1 
80 DIM GX(21,II3,GV(21,113 
39 REM 

100 REM *** DMA OFF *** 

110 REM 

120 POKE 553,0 
130 REM 

140 REM *** SET CLIPPING LIMITS *** 

150 REM 

160 XR=319:XL=O:YT=0:YB=191 
170 REM 

180 REM *** YOUR FORMULA GOES *** 

130 REM *** INSIDE THIS LOOP *** 

200 REM 

210 FOR X = 1 TO 21:FOR Y = 1 TO 11 
220 Z=(X+Y3*3 

230 GY(X,Y3=Z:NEXT Y:NEXT X 
240 REM 

250 REM *** CALC. SCREEN COORDS. *** 
260 REM 

270 FOR X = 1 TO 21:F0R Y=1 TO 11 
280 6X(X,Y3=(X-13*1O+(Y-13*10 
230 GY fX,Y) = 180-tY-13*10~GYIX,Y3 
300 NEXT YlNEXT X 
310 REM 

320 REM *** DMA ON AGAIN *** 

330 REM 

340 POKE 553,34 
350 REM 

360 REM *** DRAW BASELINE *** 

370 REM 

380 PLOT 0,180 DRAWTO 200,180 : DRAWTO 3 
00,80:DRAWT0 100,80:DRAWTO 0,180 
330 REM 

400 REM **# PLOT THE GRAPH *** 

410 REM 

420 FOR X=1 TO 21;FOR Y=2 TO 11:X1=GXC 

X,Y-13:Yl=GYtX,Y-I3:X2=GX(X,Y3:Y2=GY(X 

, YJ : GOSUB 600: NEXT Y NEXT X 

438 FOR Y=1 TO ll:FOR X=2 TO 21:X1=GXC 

X-1,Y3:Y1=GY(X-1,Y5:X2=GXCX,Y):Y2=GYCX 

,Y3:GOSUB 600:NEXT X:NEXT Y 

440 REM 

450 REM *** DRAW VERTICAL LINES *«* 

460 REM 

470 X1=0:Y1 = 180:X2=GX tl,1) :Y2=GY(1,I) : 
GOSUB 600 

480 X1=280:Y1 = 180:X2=GX (21,13 :Y2=GY(21 
,13:GOSUB 600 

430 X1 = 300:Y1 = 8O:X2=GX (21,113 :Y2 = GY{21 
,113:GOSUB 680 

508 Xl = 100:Yl = 80:X2=GX Cl,113 :Y2 = GYC1,1 
13 : GOSUB 600 
510 REM 

528 REM *** LOOP FOREVER *** 

530 REM 
548 GOTO 540 

550 REM __ ^ ^ 

570 REM *„„Gg0PHICS CLIP RO UTINE^ * 

530 REM 

600 T1=0:T2=0:B1=0:B2=0:IF Yl<YT THEN 

Tl=l:GOTO 620 

610 IF Vl>YB THEN Bl=l 

620 IF Y2<YT THEN T2=1:G0T0 640 

630 IF Y2>YB THEN B2=l 

640 IF Ti+T2=2 OR Bl+B2=2 THEN RETURN 
650 X3=Xl:Y3=Yl:X4=X2:Y4=Y2:G0SUB 630 
660 T1=T2;B1=B2:X1=XW:Y1=YW:X3=X2:Y3=Y 
2;X4=Xl:Y4=Y1:GOSUB 638 

670 IF Y1<VT OR Vi>Y8 OR YH<YT OR YW>Y 
B THEN RETURN 

680 PLOT XI,Yl:DRAWTO HW.YW:RETURN 
630 IF T1 + B1 = 0 THEN XW=X3 : VW=Y3 RETURN 
7O0 IF Tl THEN YW=YT:XW=X3F(X4~X33*(YT 
-Y33/(Y4-Y33:X3=XW;Y3=YW:RETURN 
718 IF B1 THEN YW=YB:XW=X3+(X4-H33*(YB 
-Y33/(Y4-Y33:X3=XW:Y3=YW:RETURN 
720 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 587,233,21.12,535.261,273.336, 
267,643,77,777,83,421,83,5341 


160 DATA 657.35,338,245.76.34,330,837, 

88,515,34,52,420,841,520,5802 

310 DATA 81,562.87,3,33,546,33,883,185 

,830,83,323,366,32,343,4502 

460 DATA 38.734,303,480,855,85,726,31, 

723,37,368,434,374,103,536,6873 

618 DATA 188,353,138,823.482.863,545,4 

8,233,732,573,533,5708 

• 


Sphere Demo 


8 SIZE=30:REM ***RADIUS*** 

3 CX=160:CY=36:REM **CENTER** 

10 DEG :TIME=1 

20 GRAPHICS 24:SETCOLOR 2,0,8:SETCOLOR 
1,0,0:COLOR 1 

25 PLOT CX+SIZE,CY:REM ***5TART*** 

30 FOR Y=30 TO 0 STEP -12 

40 FOR X=8 TO 360 STEP 12 

58 IF TIME=1 THEN X2=CX+SIZE*C051X3:Y2 

=CY-(5IZE*SIN(X3*SIN(Y33:GOTO 60 

55 X2 = CX-(SIZE*5IN (X3*5IN (Y33 :Y2=CY + SI 

ZE*C0S(X3 

68 DRAWTO X2,Y2:NEXT X:NEXT Y 
30 TIME=TIME+1:IF TIME=2 THEN PLOT CX, 
CY+SIZE:GOTO 30 

100 SIZE=20+RND(13*30:CX=5IZE+1+(RNDCl 
3*(318~(SIZE*2J33:CY=SIZE+1+(RND(13*Cl 
30-(5IZE*23 3 3 :GOSUB 1000:TIME=1:GOTO 2 
5 

310 REM *** ERASE HIDDEN LINES *** 

10O0 COLOR 0:FOR X=0 TO 30 STEP 0.5 
1010 X2=SIZE*C0S(X3:Y2=SIZE*SIN(H3 
1020 PLOT CX+H2,CY+Y2:DRAWT0 CX~X2,CY+ 
Y2:PLOT CX+X2,CY-Y2:DRAWTO CX-X2,CY-Y2 
:NEXT X:COLOR 1:RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

8 DATA 365,712,880,135,686,339,350,614 
,380,298,205,106,520,297,673,6680 
1020 DATA 202,202 
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GRAPHIC VIOLENCE 


16K Cassette or Disk 


by Tom Hudson 


Wh en writing game programs, many 
programmers automatically choose assembly 
language over BASIC because of the obvious speed 
advantage. This can sometimes be a mistake, since 
BASIC offers some functions (such as sine, square 
root, etc.) not easily written in assembler. One way 
to take advantage of the convenience of BASIC and 
the speed of assembler is to combine the two 
languages. ATARI BASIC allows the user to "call” 
machine-language subroutines, which can be many 
times faster than the same routine in BASIC. 

In order to assist those game programmers who 
would like to have dramatic explosion effects in their 
BASIC programs, I have developed Graphic 
Violence, a group of assembly-language subroutines. 
These routines allow BASIC to generate up to 20 
simultaneous explosions in GRAPHICS 7. They can 
optionally generate sound effects as well as "cycle” 
the colors of the explosions for an interesting 
"radioactive glow” effect. 

The first half of this article is a non-technical 
explanation of how to use Graphic Violence. The 
second half is an in-depth discussion of the actual 
assembly language code for those interested in the 
inner workings of the subroutines. 

Using Graphic Violence. 

Listing 1 is the BASIC language code necessary to 
set up the Graphic Violence subroutine. This code 
should be placed in any program ,that is to use the 
explosion generator. After typing this program in, 
SAVE it immediately, BEFORE RUNNING IT! The 
routine has some safeguards against typing errors in 
the DATA statements, but if it is executed with bad 
DATA, the system may crash and it will be necessary 
to re-type the program. 

After the program is typed and SAVEd, RUN it. If 
it is typed correctly, the program will run for several 
seconds before anything happens. The screen colors 
will begin cycling quickly. If not, an error was made 
somewhere, and you should re-boot your system, 
load the SAVEd program, find the mistake, SAVE it 
and try again. 

If a message such as "COORDI ERR” occurs, you 
have made a mistake typing in the DATA statements. 
"COORDI ERR” indicates that an error was made 


in the COORDI DATA, "INIT ERR” is an error in 
the INITIALIZATION CODE, etc. Find the error, 
fix it and re-RUN the program. 

Once the computer starts cycling colors, press 
SYSTEM RESET before doing anything else. 
Whenever operating any program using the Graphic 
Violence subroutine, you MUST use the SYSTEM 
RESET key to terminate the program. The sub¬ 
routine automatically disables the BREAK key since 
typing commands in immediate mode while the 
subroutine is in operation will usually cause a system 
crash. Pressing SYSTEM RESET will correctly 
terminate the subroutine and avoid any problems. 

At this point, you should have a correctly 
operating Graphic Violence initialization sub¬ 
routine SAVEd on tape or disk. 

Program 1 Flow. 

Line 80 — GOSUBs to line 10000 to 
initialize the subroutine. 

Line 10010 — Dimensions the strings 
needed by Graphic Violence and RESTORES 
the DATA pointer. 

Line 10020-10060 — READs DATA state¬ 
ments into the strings used by the subroutine. 

Line 10080 — POKEs graphics PLOT 
values into Graphic Violence. 

Line 101000 — Calls the machine- 

language initialization routine. It is of the form: 

A = U5R(ADR(INIT$),ADR CHAINS),ADR (COORDI 
$),ADR(C00RD2$),COLOR,SOUND) 

The COLOR value tells whether or not you want 
the color of the explosions to cycle. In the program 
listing, this value is set to 1, indicating that cycling is 
desired. If you do not want cycling, place a 0 here. 

The SOUND value tells whether or not you want 
the routine to generate sounds with the explosions. 
In the listing it is a 1, indicating that we want sound. 
If sound is not desired, place a 0 here. 

Line 10110 — This line simply returns from 
the subroutine to the main program 

A short demonstration. 

With Listing 1 in your computer, add Listing 2 
to the original program and RUN it. This is a short 
demonstration routine which simply places an 
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explosion at the center of the screen, then repeats. 

By looking at this short routine, you will notice 
the USR call in line 220. This is the command which 
starts an explosion. Once the Graphic Violence 
machine-code subroutine is set up, this short 
operation is all you need to generate explosions. 

Remember to stop the program by pressing 
SYSTEM RESET. 

Program 2 Flow. 

Line 190 — Set up a full-screen graphics 
mode 7- 

Line 220 — Call the explosion-starting 
machine language routine. This line actually 
starts the explosion. It is of the form: 

A=USR(ADR CEXPL$5,X,Y) 

X and Y are the screen coordinates of the center of 
the explosion. In the Listing, X=80 and Y=48, 
placing the explosion at the center of the screen. 

This statement is the heart of the Graphic 
Violence routine. Once this statement is executed, it 
starts off an explosion while BASIC continues with 
whatever it is doing. In addition, the explosion 
handler can operate up to 20 explosions simultan¬ 
eously, while BASIC does its own processing! 

Line 240 — This line is a simple delay loop 
which allows an explosion to dissipate before 
generating another. 

Line 260 — This line goes to start a new 
explosion after the wait. 

In the previous example, we generated one 
explosion at the center of the screen, just to keep 
things simple. In the next example, we will see how 
the Graphic Violence routine will handle up to 20 
simultaneous explosions without the programmer 
having to worry about what’s going on inside the 
explosion handler! All the programmer needs to do 
is send the explosion coordinates to the routine via 
the USR command and let the computer do the rest. 
(What could be simpler?) 

With Listing 1 in your computer, add Listing 3 
to the original program and RUN it. The program 
will fill up most of the screen with graphics, then 
start dropping "bombs” from the top of the screen. 
As they hit the graphics area, they will explode 
violently, "eating” away the graphics. As soon as one 
of the bombs falls off the bottom of the screen, an 
end message will be displayed and subsequently 
destroyed by a number of explosions. The program 
will run continuously and MUST be stopped by 
pressing SYSTEM RESET. 

Program 3 Flow. 

Line 190 — Sets up graphics mode 7 and sets 
COLOR #2 (the explosion color) to maximum 
brightness. 

Line 210 — Fills up the bottom section of 
the screen with COLOR 1 graphics. 

Line 230 — Makes sure any error will cause 


the program to continue at line 320 (the "THE 
END” routine). This TRAP statement will take 
effect when a bomb falls off the bottom of the 
screen. 

Line 250 — Gets the X and Y coordinates 
where the bomb will start its drop. 

Line 270 — Erases old bomb position (using 
COLOR 0) and increments Y position so that 
bomb will "fall” toward bottom of screen. 

Line 290 — Uses the LOCATE command 
to see if the bomb has hit anything. If the bomb 
hits color 1, an explosion is started at the X and 
Y coordinates and a new bomb is randomized. 

Line 310 — If no hit is detected, the bomb is 
plotted in color 2, the program waits a fraction 
of a second, then continues at line 270. 

Line 330 — When a bomb falls off the 
bottom of the screen, the error is TRAPped 
here. At this time, the computer sets up a new 
graphics 7 screen, sets the explosion brightness, 
and selects COLOR 1. 

Line 350 — This line RESTORES the 
DATA pointer to line 400 (THE END shape 
data), reads from-and-to plot data and draws 
the THE END message on the screen. 

Line 370 — This line sets off 200 
explosions, which destroy the THE END 
message. Note that the explosion USR call has 
random number functions for X and Y 
coordinates of the explosion center. There is 
also a 40 count delay after each explosion is 
started for a more interesting display. 

Line 390 — After all explosions are 
generated, wait a few seconds and GOTO line 
190 to re-run the demonstration continuously. 

Line 410-430 — These lines contain PLOT 
data for the words "THE END.” Each line in 
the letters is represented by 4 values, made up of 
2 sets of X and Y coordinates, the line 
endpoints. 

Summary. 

The Graphic Violence explosion generator 
subroutine will operate in almost any game using 
graphics 7. Explosions overlapping the edges of the 
screen are automatically "clipped,” but the program 
has minimal error-trapping. The user should take 
care to make sure that the coordinates supplied to 
the routine do not exceed the graphics 7 screen 
limits. The routine uses sound channel 1 when the 
sound generation option is requested. The 
Explosions use COLOR 3 (SETCOLOR 2), and will 
cycle the color only (not brightness) if color cycling 
is requested. Any program using the Graphic 
Violence routine must be terminated with SYS¬ 
TEM RESET to avoid a system crash. 

The following section contains a discussion of the 
assembly-language routines that make up Graphic 
Violence. This information is not necessary to use 
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the subroutine, but may assist those interested in 
assembly language and the inner workings of the 
ATARI computers. 

Background information. 

The Graphic Violence subroutine is made up of 
three program segments and two data tables. These 
five modules work together to provide a machine- 
language explosion generator for BASIC. 

The first assembly program (Listing 4) is the 
Graphic Violence initialization subroutine. It is 
stored in the BASIC string variable INIT$. Its 
function is to accept the locations of the main 
program module, and accept the color cycling and 
sound generation options. 

Remember that this is the routine called in the 
BASIC statement: 

ArUSR(ADR(INIT$3,ADRCMAIHS),ADRCCO0RD1 
$3,ADR tCQORD2$3,COLOR,SOUND) 

Program 4 Flow. 

Line 230 — This line arbitrarily sets the 
location counter to $6000. Since this routine 
will be fully relocatable and stored in a BASIC 
string, this address does not matter. 

Line 240 — This PLA instruction pulls the 
first argument off of the stack. In a BASIC USR 
call, this argument is always the number of 
arguments passed to the machine language 
routine. We do not use it in this case, and it is 
discarded. 

Line 250-270 — This section zeroes out the 
explosion ready flag and the explosion counter. 

Line 280-330 — This section pulls the low 
and high bytes of the address of the main 
routine (ADR M AIN$), transfers them to the X 
and Y registers, then puts a 7 in the accumulator 
and jumps to the SETVBV subroutine. This 
tells the system that we are using a vertical blank 
interrupt. The 7 indicates that it is a "deferred” 
vertical blank routine, that is, it operates after 
the system’s vertical blank operation. 

Line 340-410 — This section pulls the low 
and high bytes of the two sets of plot 
coordinates (COORDl$ and COORD2$, 4 
PLA s total) and stores them on page zero ($CB- 
$CE) for later use by the main module. 

Line 420-440 — This section pulls the color 
cycle indicator (COLOR) from the stack. Since 
this is a one-byte indicator and the system sends 
a two-byte argument, the first byte (high byte) is 
discarded and the second is stored in CYCFLG. 

Line 450-470 — This section is the same as 
lines 420-440, except that it stores the sound 
indicator (SOUND) in SNDFLG. 

Line 480 — This RTS (Return from 


Subroutine) returns control to your BASIC 
program after the initialization is complete. 

The second assembly language program (Listing 

5) is the explosion start routine. It is called by the 
BASIC statement: 

A=U5RCADRCEXPL$),X,V) 

This routine simply accepts the coordinates of the 
explosion from BASIC. If there are 20 explosions 
active, it will ignore the request, otherwise it will 
send the coordinates to the main module, which is 
executing in the deferred vertical blank. 

Program 5 Flow. 

Line 200 — Once again, this Listing has its 
location counter set to $6000. It makes no 
difference, since this routine is fully relocatable. 

Line 210 — As in the previous Listings, 
this line discards the first item on the stack (the 
number of arguments passed to the assembly 
routine). 

Line 220-240 — These lines check the 
variable EXPCNT to make sure the new 
explosion can be started. If there are less than 
20, control is passed to EXPOK (explosion 
OK). 

Line 250-290 — These lines are used if 
there are already 20 explosions. The remaining 
4 bytes are pulled from the stack and discarded, 
and the program returns to BASIC. No 
explosion is generated. 

Line 300-350 — In a manner similar to the 
COLOR and SOUND parameters in Listing 
#4, this routine pulls the X and Y coordinates 
off of the stack and places the values in NEWX 
and NEWY for use by th,e main module. 

Line 360-370 — This section places a 1 in 
READY flag, which tells the main interrupt 
routine that a new explosion is ready to start. 

Line 380 — This RTS instruction simply 
returns control to BASIC. In this way, the 
interrupt can start the explosion graphics while 
BASIC keeps running normally. 

The third assembly language routine (Listing 

6) is the vertical blank interrupt routine, stored in 
MAIN$. It does all the color cycling, sound, and 
graphics for the explosions. Since it is an interrupt- 
driven program, it operates independently of 
BASIC, allowing BASIC to continue processing 
normally while the vertical blank does all the 
explosion work. 

Since this program is stored in a BASIC string, any 
program editing or immediate mode operations in 
BASIC while the vertical blank routine is running 
will cause a system crash. This is due to the fact that 
BASIC moves its variables around in memory during 
editing of programs, and such movement of the 
interrupt routine will confuse the system. To help 
avoid such a problem, the Graphic Violence 
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interrupt routine disables the break key, making it 
necessary to press SYSTEM RESET to stop program 
execution. This is only a partial solution, however, 
since if the programmer allows his program to end 
with the READY prompt, then enters a program 
line, the crash will still occur. 

The interrupt routine performs several functions. 
First, it disables the BREAK key and cycles the color 
of playfield 2 if necessary. Next, it processes 
sound, if required, using sound channel 1. The last 
major function it performs is that of explosion 
graphics generation. 

Each explosion graphic is made up of 89 separate 
pixels. The routine uses the specified centerpoint of 
each explosion and adds X and Y offset values, which 
are stored in the BASIC string variables COORD 1$ 
and COORD2$. Each of the 89 pixels are first 
turned on, one pixel at a time, resulting in a 
"growing” appearance. After all 89 pixels are on, the 
routine turns off one pixel at a time, causing the 
explosion to dissipate. Each active explosion has a 
pixel either turned on or off each time the interrupt 
is performed. Since this happens 60 times a second, 
each explosion takes roughly 3 seconds to expand 
and dissipate [(89*2)/60j. Explosions are 
independent of each other because of three tables. 
The X and Y coordinates of each explosion are 
stored in the XPOS and YPOS tables. The third 
table, CNT, holds the number of the pixel which will 
be turned on or off next for each explosion. This 
value ranges from 0 to 88 for "on” pixels, and 89 to 
177 for "off” pixels. If the CNT value for an 
explosion exceeds 177, the explosion has dissipated 
completely and its values are removed from the 
explosion tables by a "repack” operation. That is, if 
explosion number 2 is finished, explosion 3 will 
move back to 2, 4 to 3, etc. 

Program 6 Flow. 

Line 500 — Clears decimal mode. This 
instruction is vital when writing subroutines for 
BASIC that do any binary arithmetic. 

Line 510-540 — Disables the BREAK key 
by altering POKMSK and IRQEN, the interrupt 
request enable. This prevents the BREAK key 
from generating an interrupt. 

Line 550-640 — Cycles colors if CYCFLG 
is not zero. 

Line 650-770 — Processes explosion sound 
if SNDFLG is not zero. 

Line 780-940 — Monitors the READY flag 
to see if there is a new explosion. If not, the 
program checks for any old explosions at 
MAIN. If there is a new explosion, the routine 
sets up the XPOS, YPOS and CNT tables with 
the new information. 

Line 950 — Zeroes out COUNTR, the 
variable indicating which explosion is being 
processed. 


Line 960-1000 — Increments the explosion 
counter. If the counter is greater than the 
current number of explosions active 
(EXPCNT), the routine jumps to XITVBV, the 
vertical blank exit vector. Otherwise control is 
passed to INDEX. 

Line 1130-1350 — This section repacks the 
XPOS, YPOS and CNT tables to eliminate a 
"dead” explosion. It then branches back to 
RUNLP to handle the next explosion. 

Line 1360-2350 — This routine turns 
explosion pixels on or off, depending on the 
PLOTCLR setting. If the pixel is off the screen, 
the plot is abandoned by a branch to RUNLP. 

By expanding the XPOS, YPOS and CNT tables 
and altering the explosion call routine (Listing 5), 
advanced users can enable the Graphic Violence 
routine to handle many more explosions than it can 
now. However, 20 explosions are more than enough 
for most applications, and the routine should serve 
well as is. 

I hope that ATARI programmers will see by this 
example that it is not always necessary to write game 
programs completely in assembly language. Just use 
BASIC for complicated functions difficult to write 
in assembler, and use assembler for things BASIC is 
too slow to do. □ 


Listing 1 (BASIC) 

10 REM KXXXXXKXXKXKXMKKMKMXMMKKXM 
20 REM * GRAPHIC VIOLENCE DEMO X 
38 REM * A.N.A.L.O.G. COMPUTING * 

40 REM * BY TOM HUDSON * 

50 REM xkxx x xxxxkx x kxxxxxx x xkxxkk 
60 REM 

70 REM XXX INITIALIZE THE GRAPHIC VIOL 
ENCE SUBROUTINE XXX 
80 G0SUB 10018 
90 REM 

100 REM X X X X X X X X X X X X X X X X X X X X XXX X XX XXX 
110 REM x* YOUR PROGRAM GOES HERE! XX 
120 REM KXXXXKXXXXXXXXXXXXXXXXXXXKXXX 
130 GOTO 130 

10008 REM XXX INITIALIZATION SUBR0UTIN 

jr 

18010 DIM INIT$(413,EXPL$(293,MAIN$C35 
53,C00RD1S (89J,C00RD2$(893 :RESTORE 118 
00 

18020 TOT-0:FOR X=1 TO 89:READ A : TGT-T 
0T+A:C00RD1S(X,X3=CHRS(A3:NEXT X : IF TO 
TO 9984 THEN ? "C00RD1 ERR" : END 
18030 TOT=0:FOR H=1 TO 89:READ A:T0T-T 
OT+A:COORD2$(X,X3=CHR$(A3:NEXT X:IF TO 
T <>9984 THEN ? "C00RD2 ERR":END 
10840 T0T=0:F0R X=1 TO 41:READ A:T0T=T 
OT+A:INIT$(X,X3=CHR$(A3:NEXT X:IF T0T< 
>4237 THEN ? "XNIT ERR":END 
10950 TOT-0:FOR X = 1 TO 29:READ A:T0T = T 
0T+A:EXPLS(X.X3=CHR$(A3 :NEXT X’.IF T0T< 
>2198 THEN ? "EXPL ERR":END 
10060 TOT-0:FOR X=1 TO 355:READ A:T0T= 
TOT+A:MAIN$tX,X3=CHRStA3:NEXT X:IF TOT 
036691 THEN ? "MAIN ERR": END 
10O70 REM XXX SET UP PLOT BITS XXX 
10080 POKE 1568 ,192:POKE 1569,48:P0KE 
1570,12:POKE 1571,3 

10O90 REM XXX INITIALIZE GRAPHIC VIOLE 
NCE ROUTINE AND RETURN XXX 
10100 A=USR(ADR(INIT$3,ADR(MAINS3,ADR( 
C00RD1S3,ADR(C00RD2$3,1.13 
10110 RETURN 
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11000 REM XXX CQ0RD1 DATA XXX 

11O10 DATA 0,1,255,0,255,0,255,2,1,1,0 

,254,255.1,0,1,254,254,2,0,1,255,2,2,2 

,255,254,1,253,3,3,4,252,253,254 

11020 DATA 255.254,2.3,3,253,0,0,0,4,4 

,252,255,2,0,3,2.1,253,254,254.252,253 

,3,253,252,251,251,252,4,3,4,255 

11O30 DATA 5,5,5,253,1,254,0,255,252,2 

53,251,253,252,3,4,3,1,255,1,2,4 

120O0 REM XXX C00RD2 DATA XXX 

12010 DATA 0,255,1,2,254,255,0.1,254,0 

,1,0.255,1.253,253,2,255.255,254,2,3,2 

, 0,254,2.1,3,254.1.254,255,0,1,253 

1202O DATA 253,254.3,2.0,3,252,4,3.0,2 

,2,4,4,5,3,253,252,0,3,4,254,252,252,2 

,1,1,0,255,254,255,1,251 

12030 DATA 0,255,1,4,4,252,251.252,253 

,253,255,255,3,253,253,4,251,5,5,252.3 

130O0 REM XXX INITIALIZATION CODE XXX 

13010 DATA 104,169,0,141.0,6,141,1,6,1 

04,170,184.168.169,7 

13020 DATA 32,92,228,104,133,204,104,1 
33,203,104,133,206.184,133.205 
13036 DATA 104,104,141,11,6,184,104.14 
1,12,6,96 

14000 REM XXX EKPL05I0N CALL CODE XXX 
14810 DATA 104,173,1,6,201,20,48,5,104 
,104,184.104,96,104,104 

14020 DATA 141,2,6,164,184,141.3,6,169 
,1,141,0,6,96 

14990 REM XXX MAIN INTERRUPT CODE XXX 

158O0 DATA 216,165,16,41,127,133,16,14 

1,14.210,173.11,6,240,20 

15010 DATA 173,14,6.24,105.16.141,14,6 

,173,198,2,41,15,13 

15028 DATA 14.6,141,198,2,173,12.6,248 
,22,173,13,6,246,17 

15036 DATA 56,233.1,141,13.6,74,74,74. 
141,1,218,169.48,141 

15640 DATA 8,210.173.0.6,240.31.238,1, 
6,174,1,6,173,2 

15850 DATA 6.157.64,6,173,3,6.157,85.6 
,169,127,141,13,6 

15066 DATA 169,8,157,106,6,141,8.6,141 
,5,6.238.5,6,173 

15870 DATA 1,6,205,5.6,16,3,76,98.228, 
174,5.6,169,8 

15080 DATA 141,4,6,189.106,6,201,89,48 
,51,238,4,6,56.233 

15898 DATA 89,201,89,48,41,138.168,232 
,236,1,6.248.2,16,21 

151O0 DATA 189.64.6,153,64.6,189,85,6, 

153.85.6.189.166.6 

15116 DATA .153,186,6,200,208.227,286.1 
,6,206,5.6,169,8,240 

15128 DATA 176.254,186,6.168,189,64.6, 
24,113,283,141.6,6,201 

15130 DATA 160jl76,159,189,85,6,24,113 

,285,141,7,6,201,96,176 

15140 DATA 146.10,133,207,169,8,240,2, 

240,137,133,208.165,207,10 

15150 DATA i33,207,165,208,42,133,208, 

165.287.18.133.207.141.9.6 

15160 DATA 165.208,42,133,208,141,8,6, 

165.207.16.133.207.165.208 

15170 DATA 42.133.208,165,207,10,133,2 

07,165,208,42,133,208,165,207 

15180 DATA 24,109,9,6,133,207,165,208, 

109,8,6,133,208,165,88 

15198 DATA 24.181,207.133.207.165.89,1 

01,208,133,208,173,6,6,41 

1520O DATA 3,168,190,32.6,142,10,6,173 

,6,6,74,74,24,181 

15218 DATA 207,133,287,165,208,105,0,1 

33.208.168.8.173.4.6.208 

15228 DATA 11,173,10,6.81,287,145,207, 

169.8.240.132.173.10.6 

15230 DATA 73,255,49,207,145,287,169,0 
,240,241 


CHECKSUM DATA 

(See pgs. 7-10) 

18 DATA 280,324,225,872,288,261,725,83 
7,267,778,948,784,701,830,321,8441 
18020 DATA 887,814,290,322,416,442,758 
,706,208,43,332,901,920,385,338,7674 
12016 DATA 966,265,36,858,239,907,884, 
831,543,392,825,377,13,7,217,7368 
15040 DATA 458,996,743,441,863,301,958 
,239,326,614,853,887,899,169,370,9189 
15190 DATA 615,960,409,269,122,2375 


Listing 2. 


130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


REM X XXXXXMX X XMXMXXXMXXXXKXXKXX 
REM * GRAPHIC VIOLENCE DEMO * 
REM * NUMBER 1 * 

REM X - KXXXXXXXXXXXXXXXXXXXMXXXXX 
REM 

REM XXX SET UP GRAPHIC MODE 7 XXX 
GRAPHICS 7+16 

REM XXX SET OFF AN EXPLOSION XXX 
REM XXX AT SCREEN CENTER XXX 

A=USR(ADR(EXPL5),80,481 
REM XXX WAIT A FEW SECONDS XXX 
FOR WAITrl TO 2000:NEXT WAIT 
REM XXX DO EXPLOSION AGAIN XXX 
GOTO 220 


Listing 3. 


GRAPHIC VIOLENCE DEMO 
NUMBER 2 


X 

X 


7 FULL SCR 


130 REM 
140 REM X 
150 REM X 
160 REM 
178 REM 

180 REM XXX SET UP GRAPHICS 
EEN AND EXPLOSION COLOR XXX 
198 GRAPHICS 7+16:SETC0L0R 2,15,15 
2O0 REM XXX DRAW THE ’GROUND 1 XXX 
210 COLOR l:FOR Y=20 TO 95:PL0T 0,Y:DR 

A|JTn 1 V ' HFKT V 

220 REM XXX TRAP ANY ERRORS TO ’THE EN 
D' ROUTINE XXX 
230 TRAP 320 

240 REM XXX RANDOMIZE START POINT FOR 

DROPPING BOMBS XXX 

250 X=5+RND(0)X149:Y=RND(0)X3 

260 REM XXX ADVANCE THE BOMB AS IT DR0 

PS XXX 

270 COLOR O:PLOT X,Y:Y=Y+3 

288 REH XXX IF THE BOMB HITS COLOR 1, 

SET OFF EXPLOSION XXX 

290 LOCATE X,Y,Z:IF Z=1 THEN A=USRCADR 
(EXPLSJ,X,Y)IGOTO 250 

308 REM XXX NO HIT, CONTINUE DROP XXX 

310 COLOR 2:PL0T X,Y:FOR DELAYri TO TO 

!NEXT DELAY:GOTO 270 

320 REM XXX 'THE END' XXX 

330 GRAPHICS 7+16:SETCOLOR 2,15,15:C0L 

OR 1 

340 REM XXX PLOT ’THE END’ XXX 
350 RESTORE 40O:FOR X=i TO 22:READ FRX 
,FRY,TUX,TUY:PLOT FRX,FRY:DRAWTO TUX,T 
UY:NEXT X 

360 REM XXX SET OFF 200 RANDOM EXPLOSI 
ONS XXX 

370 FOR EKPL=1 TO 280:A = U5R(ADR (EXPL$) 
,40+RND(01X75,20+RND(01X55):FOR DELAY= 
1 TO 48:NEXT DELAY:NEXT EXPL 
380 REM XXX LET EXPLOSIONS DIE, THEN R 
E-RUN THE DEMO XXX 

390 FOR DELAY = 1 TO 2000 : NEXT DELAY GOT 
0 190 

4O0 REM XX* 'THE END’ DATA XXX 
410 DATA 50,25,67,25,59,25,59,45,72,25 
,72,45,72,35,88,35,88,25,88,45,93,25,9 
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428 DATA 93,45,189,45,50,50,50,70,50,5 

0,67,50,50,60,67,60,50,70,67,70,72,78, 

72,50,72,50,88,70,88,70,88,50 

438 DATA 93,50,93,78,93,50,102,50,102, 

50,109,56,109,56,189,64,109,64,102,78, 

102,70,93,78 


CHECKSUM DATA 
(See pgs. 7-10) 

130 DATA 351,454,438,360,95,403,617,18 
0,539,885,711,340,552,331,470,6646 
280 DATA 421,589,835,842,98,463,638,15 
3,787,999,122,753,603,481,961,8665 
430 DATA 292,292 


Listing 4. 

8100 ; GRAPHIC VIOLENCE 
0118 ; 

0120 ; A.N.A.L.O.G. COMPUTING 
0130 ; 


8140 ; INITIALIZATION 
0150 : 

0130 READY = $688 

0178 EXPCNT = $601 

0180 CYCFLG = $608 

0190 SNDFLG = $68C 

8200 COORD1 = $CB 

0218 C00RD2 = $CD 

0220 SETVBV = $E45C 

0230 *= $6000 

0240 INIT PLA 

0250 LDA «0 

0260 3TA REAOY 

0270 STA EXPCNT 

0238 PLA 

0298 TAX 

0380 PLA 

8310 TAY 

0320 LDA #7 

0330 JSR SETVBV 

0340 PLA 

9350 STA COORDlt! 

0360 PLA 

0370 STA C0ORD1 

0330 PLA 

8398 STA CQ0RD2+1 

0480 PLA 

0410 STA C00RD2 

8428 PLA 

0438 PLA 

0448 STA CYCFLG 

8458 PLA 

0468 PLA 

8470 STA SNDFLG 

8430 RTS 

8490 .END 


CODE 


;DISCARD 
;ZERQ OUT: 

{READY FLAG 
;# OF EXPL. 

;INTERRUPT HI 
•PUT IN X 
;INTERRUPT LO 
;PUT IN Y 
;DEFERRED VBI 
;SET IT' 

;COORD1 HI 
{SAVE IT 
j PULL COORD1 LO 
;SALVE IT 
;PULL C00RD2 HI 
{SAVE IT 
;PULL C00RD2 LO 
{SAVE IT 
iOISCARD 

{PULL COLOR CYCLE FLAG 

{SAVE IT 

{DISCARD 

;PULL SOUND FLG 

•SAVE IT 

{FINISHED! 


Listing 5. 

8108 ; GRAPHIC VIOLENCE 
8110 ; 

0128 ; A.N.A.L.O.G. COMPUTING 83 
8138 ; 

3148 ; EXPLOSION CALL ROUTINE 
0158 ; 

3168 READY = $688 


8178 

EXPCNT = $681 


0130 

NEUX = $602 


8198 

NEUY = $683 


0200 

*=$6000 


0218 

PLA 

{DISCARD 

8228 

LDA EXPCNT 

;# OF EXPL. 

0238 

CMP #28 

;20 ACTIVE’ 

0240 

SMI EXPOK 

;N0, IT'S OK' 

0258 

PLA 

;YES. DISCARD 

8260 

PLA 

{BOTH COORDS 

8278 

PLA 


0238 

PLA 


0298 

RTS 

{AND EXIT 

0300 

EXPOK PLA 

{DISCARD HIGH 

0318 

PLA 

;GET X-COORD 

8328 

STA NEUX 

{STORE IT 

0338 

PLA 

{DISCARD HIGH 

8348 

PLA 

{GET Y-CUORD 

8358 

STA NEUY 

{STORE IT 

8368 

LDA #1 

{TELL INTERRUPT 

8378 

STA READY 

;UE'RE READY 1 

0330 

RTS 

{AND EXIT BACK 

0398 

1 

TO BASIC! 

0400 

.END 


• 




Listing 6. 

0188 

i GRAPHIC VIOLENCE 

0110 

$ 


0120 

; A.N.A.L.O.G. 

COMPUTING 

0130 

1 


0140 

j VBLANK INTERRUPT ROUTINE 

8158 

1 


8168 

READY = $660 


82 78 

EXPCNT = $681 


8138 

NEUX = $602 


8590 

NEUY = $683 


8280 

PLQTCLR = $684 


0218 

COUNTR = $685 


0228 

PLQTX = $686 


8238 

PLQTY = $607 


8248 

HIHLD = $683 


0258 

LOHLD = $689 


0268 

PLOTBYT = $68 A 


3270 

CYCFLG = $60B 


0238 

SNDFLG = $68C 


0290 

SNDCNT = $63D 


8388 

COLOR = $68E 


0318 

PLOTBL = $620 


0320 

XPOS = $640 


0338 

YPOS = XPOS+21 


0340 

CNT = YPOS+21 


0358 

LO = $CF 


8368 

HI = $D8 


0378 

COORD! = $CB 


0338 

C00R02 = $CD 


8398 

i 


0400 

{SYSTEM EQUATES 


8410 

$ 


8420 

XITVBV = $E462 


0438 

C0LPF2 = $2C6 


8448 

AUDC1 = $D201 


8450 

AUDF1 = $D200 


0460 

SAVMSC = $58 


0478 

POKHSK = $18 


0438 

IRQEN = $D28E 


8490 

*=$6080 


0588 

CLD 

{CLEAR DECIMAL 

8518 

LDA POKMSK 

{GET IRQ INT. 

8528 

AND #$?F 

;N0 BREAK KEY 

0538 

STA POKMSK 

{THE BREAK KEY 

0548 

STA IRQEN 

{IS NOU OFF! 

0558 

LDA CYCFLG 

{CYCLING COLOR’ 

8568 

BEQ OUT 

;N0, CONTINUE 
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8578 

LDA COLOR 

; GET LAST COLOR 

1346 

LDA #6 

{FORCE BRANCH 

8588 

CLC 

;INCREMENT IT 

1350 

BEQ RUNLP 

:T0 NEXT EXPL. 

8598 

ADC #14 

;BY 14 

1340 

DOPLOT INC CNT.X :INC COUNTER 

0.508 

STA COLOR 

;AND SAVE IT 

1378 

TAY 

{EXP PHASE IN Y 

eiie 

LDA C0I.PF2 

;GET COLOR REG. 

1336 

LDA XPOS.X 

{GET X-COORD 

8620 

AND #$8F 

■GET BRIGHTNESS 

1390 

CLC 


0438 

ORA COLOR 

;ADD THE COLOR 

1480 

ADC (COORD1),Y 

{ADD X OFFSET 

0440 

STA C0LPF2 

;AND SAVE IT ! 

1416 

STA PLQTX 

{STORE IT 

8450 CONI' LDA SNDFLG 

; SOlflD ON” 

1428 

CMP #148 

{OFF SCREEN? 

0448 

BEQ GO 

jNO. SKIP IT 1 

1430 

BCS RUNLP 

;YES,DON'T PLOT 

8478 

LDA SNDCNT 

{MORE SOUND? 

1440 

LOA YPOS,X 

{GET Y-COORD 

8480 

BEQ 60 

{NO, SKIP IT 1 

1458 

CLC 


8490 

SEC 

{DECREMENT THE 

1446 

ADC (C00RD2),Y 

{ADD Y OFFSET 

0788 

SBC #1 

{SOUND COUNTER 

1470 

STA PLOTY 

{STORE IT 

0718 

STA SNDCNT 

■AND STORE IT 

1488 

CMP #94 

{OFF SCREEN? 

8720 

LSR A 

{SHIFT DOWN TO 

3498 

BCS RUNLP 

;YES,DON'T PLOT 

8730 

LSR A 

{DERIVE VOLUME 

1508 



0748 

LSR A 

{FROM COUNTER 

1518 

;THE FOLLOWING SECTION IS A 

0758 

STA AUDCS 

:SET UP SOUND 

1528 

{DEDICATED MULTIPLY ROUTINE 

8748 

LDA #48 

{CHANNEL I... 

1536 

{WHICH MULTIPLIES THE A REGISTER 

8778 

STA AUDF1 

{FINISHED’ 

1540 

;BY 48, WITH RESULT IN LO h HI 

8780 

GO LDA READY 

{NEW EXPLOSION* 1 

1556 

% 


0790 

BEQ MAIN 

;N0, CONTINUE 

1548 

ASL A 


0880 

J 


1570 

STA LO 


0818 

;AT THIS POINT, THERE IS A 

1580 

LDA #0 


8820 

{NEW EXPLOSION 1 


1598 

BEQ X2 


0830 

J 


1408 

JRUNLP BEQ RUNLP 

0848 

INC EXPCNT 

;ONE MORE EXPL 

1418 

X2 STA HI 

{*2 

0858 

LOx EXPCNT 

{PUT IN INDEX 

1428 

LDA LO 


0848 

LDA NEWX 

{GET X-COORD, 

1438 

ASL A 


8878 

STA XP0S,X 

{PUT IN TABLE 

1440 

SlA LO 


8830 

LOA NEWT 

;GET Y-COORD. 

1456 

LDA HI 


8898 

STA YPOS.X 

:PuT IN TABLE 

1440 

ROL A 


0988 

LDA #127 

{INITIALIZE THE 

1478 

STA HI 

;*4 

0918 

STA SNDCNT 

{SOUND COINTER 

1488 

LDA LO 


0926 

LDA #8 

jINIT COUNTER 

1498 

ASL A 


0938 

STA CNT.X 

{FOR EXPL IMAGE 

1700 

STA LO 


8948 

STA READY 

{AND READY FLAG 

1718 

STA LOHLD 


8958 MAIN STA CQUNTR 

{ZERO COUNTER 

1720 

LDA HI 


8948 RIJNLP INC COUNTS 

{NEXT EXPLOSION 

1738 

ROL A 


8978 

LDA EXPCNT 

{GET # OF EXPL. 

1748 

STA HI 


8938 

(Tip COUNTS 

{ANY MORE EXPL? 

1758 

STA HIHLD 

;*8 

8998 

BPL INDEX 

;YES, CONTINUE 

1748 

LDA LO 


I860 

jmp xitvbv 


1778 

ASL A 


1810 

INDEX LOX COUNTR 

{GET INDEX 

1786 

STA LO 


1820 

LDA #0 

:SET PLOTCLR 

1798 

LDA HI 


1830 

STA PLOTCLR 

;8=PL0T A BLOCK 

1300 

ROL A 


1048 

LEW CNT,X 

{GET COUNTER 

1318 

STA HI 

{*14 

1850 


FOR EXPLOSION 

3828 

LDA LO 


1848 

CUP #39 

{ALL DRAWN 0 

1330 

ASL A 


167C 

mi DOPLOT 

;N0, DO IT NOW 

1840 

STA LO 


1838 

INC PLOTCLR 

;!=ERASE BLOCK 

1358 

LOW HI 


1696 

SEC 

iGET READY FOR 

1848 

ROL A 


1188 

SBC #89 

{ERASE CYCLE 

1878 

STA HI 

;*32 

*118 

TP #89 

{ERASE DONE 0 

1836 

LDA LO 


1128 

BHi DOPLOT 

{NO,ERASE BLOCK 

1898 

CLC 


1138 

TXA 

{MOVE INDEX 

I960 

ADC LOHLD 


1140 

TAY 

;T0 Y REGISTER 

1918 

STA LO 


1158 

; 


1920 

LDA Hi 


1146 

;THE FOLLOWING ROUTINE REPACKS 

1938 

ADC HIHLD 


1170 

;THE EXPLOSION IABLE ru GET RID 

1940 

STA HI 

;**8=*46 

1186 

:0F EXPLOSIONS THAT ARE DONE. 

1950 



119fi 

i 


19.50 

{AT THIS POINT, 

THE MULTIPLY BY 

1208 

REPACK INX 

{NEXT EXPLOSION 

1978 

;48 IS FINISHED, AND WE NEED TO 

1216 

CPX EXPCNT 

{DONE? 

1938 

{GET OFFSET INTO THE SCREEN 

1220 

BEQ RPK2 

;N0,REPACK MORE 

1990 

■MEMORY 


1230 

BPL RPKEND 

;YES, EXIF 1 

2008 

% 


1248 

RPK2 LEW XPOS.X 

;NU, START RPK 

2818 

LDA SAVMSC 

;ADD THE DISPLAY 

1250 

STA XPQS.r 

;MOOE BACK X 

2028 

CLC 

{ADDRESS TO GET 

1246 

LOA YPOS,X 


2038 

ADC LO 

{THE ACTUAL 

1270 

SlA YPOS," 

{MOVE BACK Y 

2848 

STA LO 

{ADDRESS OF THE 

1236 

LDA CNT.X 


2858 

LDA SAVMSC+1 

■BYTE THAT WILL 

1296 

STA CNT,Y 

{MOVE BACK CNT 

2046 

ADC H3 

;BE ALTERED FOR 

1388 

IN Y 


2078 

STA HI 

{THE Plot. 

1310 

BNE REPACK 

{NEXT REPACK 

2088 

LDA PLOTX 

{MASK PLOTX FOR 

1328 

RPKEND DEC EXPCNT 

;DEC POINTERS 

2898 

AND #3 

{THE PLOT BITS. 

1338 

DEC COUNTR 

;DOE TO REPACK 

2108 

TAY 

{PLACE IN Y... 
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2110 

LBX 

PLOTBL.Y 

;GET PLOT BITS, 

2120 

STX 

PLOTBYl 

;AND SAVE' 

2130 

LDA 

PLOTX 

{GET PLOTX AND 

2110 

LSR 

A 

{DIVIDE 

2150 

LSR 

A 

;BY 1 

2130 

CLC 


•AND ADD TO 

2170 

ADC 

LO 

{PLOT ADDRESS 

2180 

STA 

LO 

{FOR FINAL PLOT 

2190 

LDA 

HI 

{ADDRESS. 

2200 

ADC 

#6 


2218 

STA 

HI 


2220 

LDY 

06 

{ZERO 007 Y REG. 

2230 

LDA 

PLGTCLR 

{ERASING? 

2210 

BNE 

CLEARIT 

;YES,GO CLEAR IT 

2250 

LDA 

PLOTBYT 

;GET PLOT BITS. 

2260 

EOR 

<L0),Y 

{ALTER DISPLAY; 

2278 

STA 

(LO),Y 

{AND PLOT IT 1 

2280 

LDA 

08 

{FORCE BRANCH 


2298 JRUNLP2 3EQ JRUNLP {#10 EXIT I 
2300 CLEAR]T IDA PLOTBVT {PLOT BITS 


2318 

EOR WFF 

{FLIP 'EM 

2326 

AND (LO),Y 

{ALTER DISPLAY 

2338 

STA (LO) ,Y 

;AND ERASE IT' 

2318 

LDA 06 

{FORCE BRANCH 

2350 

BEQ JRUNLP2 

{AND EXIT 1 

2366 

.END 



Graphics 11 GTiA Demo 


18 REM GRAPHICS II GTIA DEMO 
20 REM 

38 GRAPHICS 11 

40 CI=1:C=0:SETCOLOR 4,0,2 

SO FOR Y=0 TO 151 

68 FOR X=0 TO 75 

70 C=C+l:IF C=16 THEN C=0 

80 COLOR C 

50 PLOT X,Y 

100 NEXT X 

110 LC=LC+l:IF LC=16 THEN CI=-CI:LC=1 
120 C=C+CI:IF C-16 THEN C=0 
130 NEXT Y 
140 GOTO 140 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 558,253,555,374,128,256,315,77 
0,615,758,588,438,765,707,8404 
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ATARI 1020 PRINTER DEMO 


10 REM KKMMKMKMMKMMMMM - MM X MMMX X K 
20 REM * ATARI 1020 PLOTTER * 

30 REM * 5PHERE DEMONSTRATION * 

40 REM * BY TOM HUDSON * 

50 REM XXX XXXXXX XXXXXXXXXXXXXXX 
60 REM 

70 REM *#* OPEN IOCB 1 TO PLOTTER ##* 
80 REM 

90 OPEN ttl,8,8,"P:" 

100 REM 

110 REM *** SET SPHERE RADIUS *** 

120 REM 
130 SIZE=150 
140 REM 

150 REM *** INITIALIZE PLOTTER XXX 
160 REM 

170 ? ttl;"fc\*H*I*M0, -SIZE-20;"*I" 

180 REM 

190 REM *** SET SPHERE CENTER *** 

200 REM 

210 CX=240:CY-0 
220 REM 

230 REM XX* START PLOTTING! *** 

240 REM 

250 DEG :TIME=1 

260 ? ttl;"M";CX+SIZE;"JCY:REM *** ST 
ART THE PLOT *** 

270 FOR Y-98 TO 0 STEP -12 

280 FOR X=0 TO 360 STEP 12 

290 IF TIME-1 THEN X2=CX+5IZE*C0S(X):Y 

2-CY- (SIZESSIS (jOk-SIr (V) i : GOTO 348 

30O X2-CX - CSIZE#SIN IXJ*SIN CYJ J:Y2=CY+5 

IZE*COSfXI 

310 REM 

320 REM *** DRAM LINE OF SPHERE *** 

330 REM 

348 ? ttl; M D";X2;"jY2 
350 NEXT XlNEXT Y 
360 REM 

370 REM *** DO NEXT DIRECTION **# 

380 REM 

390 TIME=TIJC+l:IF TIME=2 THEN ? #1;"M 
";CX; ,, , ,, ;CY+SIZE:GOTO 270 
400 REM 

419 REM MOVE PAPER UP AT END **» 

420 REM 

430 ? ttl;"H*M0,";-SIZE-20J"*!" 

440 CLOSE ttl:END 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 267,70,613,909,275,261,719,265 

,505,74,225,80,748,86,609,5706 

168 DATA 92,755,98,248,76,28,82,288,88 

,84,840,182,274,562,515,4212 

310 DATA 81,293,87,768,536,96,322,102, 

57,80,395,86,576,131,3610 


10 REM **X*HH*X#*HH*X***nHHnH 
20 REM * ATARI 1020 PLOTTER * 

30 REM * "SOUARE-MEB" DEMO * 

40 REM * BY TOM HUDSON * 

50 REM mxxmxmxxhkxhxhmhxhhkmm 
60 REM 

70 REM *** OPEN IOCB 1 TO PLOTTER *** 
80 REM 

90 OPEN ttl,8,0,"P:" 

100 REM 

110 REM *** INITIALIZE PLOTTER *** 

120 REM 

130 ? ttlJ"fc\»H*I*M0,-400*1" 

140 REM 

150 REM X** START PLOT LOOP XXX 
160 REM 

178 FOR X=20 TO 380 STEP 20 
180 REM 

190 REM XX* DRAM 4 LINES XXX 
200 REM 

210 ? ttlj"M";X;",380*D380,";400-X;"j" 
400-X;",20;20,"jXj";"jX;",380" 

220 NEXT X 
230 REM 

240 REM **X ALL DONE! XXX 

250 REM 

269 ? ttl;"H" 

278 CLOSE ttl:END 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 831,647,628,440,839,261,719,26 

5,505,74,597,80,923,86,212,7107 

160 DATA 92,302,98,591,76,229,766,85,1 

75,91,499,136,3140 
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DISK FILES: 
USING NOTES POINT 


32K Disk 
by Jerry White 


This is a demonstration program that creates a 100 
record inventory file and permits the user to update 
the file using random access. Random access allows 
immediate access to any given record in a file without 
reading each record again and again. 

The rest of this article assumes you have typed in 
the program. If there were no errors in typing, you 
should now have 3 options on the screen. First, we 
must create a data file, so type 1. This will send the 
program to line 100. We will now create a 100 record 
file to work with. Each record will contain a record 
number, an item count and an item description field. 
Each field is separated by a comma. As the file is 
created, it will be displayed on the screen. After 
record 100 is written the file is closed, and you will 
be returned to the 3 original options. 

Now type the number 2. In order to use random 
access updating, we must know exactly where each 
record begins on the diskette. Before updating, the 
program will create an index using an array in mem¬ 
ory. Once this is done, we can instantly find any re¬ 
cord using the POINT instruction. But first, we must 
NOTE the location by storing the sector number and 
byte in our arrays. We only have to do this once. 
Then we can inspect or change as many records as 
needed. 

The index is created using the routine starting at 
line 300 and ending at 420. Line 500 is the beginning 
of the random access routine. You should be able to 
follow the program listing, since the variables used 
will all be defined at the end of this article. At this 
time, I will only explain how the NOTE and POINT 
instructions are used. 

At line 310, we check a flag to see if an index has 
already been created. If so, we do not have to repeat 
this procedure and go to line 500. To create the in¬ 
dex, we read the datafile. Before reading each record, 
we NOTE the sector and byte position and put it into 
our SEC and BYT arrays. 

Once the array is complete, we are ready to display 
or update any record in the datafile using the POINT 
instruction to locate the record we want. Let’s start 
by displaying record 50. Type D and press RETURN. 
Then type 50 and press RETURN. At line 760, we 


POINT to the sector and byte of record 50. At line 
780, we INPUT that record, clear the screen, and 
display record 50 on the screen. 

Remember the number of items in this record, 
press any key, and you will be returned to the option 
routine at line 5000. Type 2 and this time we will 
change record 50. Type U and press RETURN, then 
type 50 and press RETURN. Record 50 will again be 
displayed, but now we have 3 new options. Let’s take 
them in order. Type 1, then press RETURN. To 
update the quantity, we merely add to it by typing 
the number of items to add, or subtract by typing a 
negative number. Remember that our quantity field 
is only 3 positions, so don’t increase it to more than 
999 items. 

After reading the record from the datafile, we 
store it in a string call REC$. The quantity field is 
updated in the string. It will be updated on the disk 
only when we choose option 3 to exit. Before we exit, 
let’s change the description field. Type 2 and press 
RETURN. Choose a new description and type it. 
Now type 3, and the record will be updated on the 
disk. 

To be sure that the record has been changed pro¬ 
perly, you can choose the display/update option 
then redisplay record 50. By now, you can see the 
advantages of random access updating. You don’t 
have to read the first 49 records to get to record 50. 
Once the arrays of the sectors and bytes contain the 
beginning of every record, we can locate any record 
instantly. □ 


26 REN INVENTORY TUTORIAL PROGRAM TO D 
EMONSTRATE RANDOM ACCESS UPDATING 
30 REM *** BY JERRY MHITE *** 

50 DIM SEC(ISO),BYT (100),RECS(30),DESS 

(30J.CHOICES(1):CI=0:GOTO 5606 

100 REM *** CREATE INITIAL DATA FILE * 

110 FOR BLANK=1 TO 30:RECS (BLANK,BLANK 
J-" **: NEXT BLANK 

120 CLOSE 111: OPEN ttl, 8,0 , "D : DATAFILE" 
130 REC$(4,43=","*REC$(8,30 J ,ITEM DE 
SCRIPTION FIELD" 

140 FOR REC0RD=1 TO 100 

160 IF RECORD <10 THEN RECS(1,21="80":R 

ECS(3,33=STRS(RECORD) :G0T0 220 
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180 IF RECORD<100 THEM RECS Cl,11:"0":R 
ECS (2,3)=STRS(RECORD):GOTO 220 
2O0 RECS(1,3)=5TR$(RECORD) 

220 RECS(5,7)-STRS(RND(O)*100+100) 

240 PRIMT ((ljRECS:? :? "RECORD ";RECOR 

D:? RECS:NEXT RECORD 

260 CLOSE Hi:GOTO 50O0 

300 REM *** CREATE INDEX *** 

310 IF CI=1 THEN RECORD=101:GOTO 500 
320 TRAP 2080: CLOSE 02: OPEN H2,4, 
DATAFILE":TRAP 40000 

360 FOR ARRAY=1 TO 100:NOTE ((2, SECTOR, 
BYTE 

380 ? :? "RECORD ";ARRAYJ" SECTOR ";S 
ECTOR;“ BYTE "J BYTE 

400 SEC(ARRAY)^SECTOR:BYT(ARRAY)=BYTE: 
INPUT ttl, RECS : NEXT ARRAY 
420 CLOSE »2:CLOSE H3:CI=1 
500 REM *** RANDOM ACCESS DATAFILE *** 
520 CLOSE H4:OPEN H4,12,0,"D:DATAFILE" 
540 ? CHRS(125):? :? "TYPE D TO DISPLA 
Y A RECORD":? :? "TYPE U TO UPDATE A R 
ECORD"' 

560 INPUT CHOICES:IF CHOICES="D" THEN 
7O0 

580 IF CHOICE$="U" THEN 900 

600 ? CHRS(253):GOTO 540 

700 ? "TYPE RECORD NUMBER TO DISPLA 

Y";:TRAP 700:INPUT RN:TRAP 40000 

720 IF RN<ARRAY AND RN>0 AND RN=INT(RN 

) THEN 760 

740 ? CHRS(253):? "INVALID RECORD NUMB 
ER'UGOTO 708 

760 POINT H4,SEC(RN),BYT(RN) 

780 INPUT H4,RECS:? CHRS(125):? :? "RE 

rnnn "•dn , 7 ■ pert 

800 ? :? "PRESS ANY KEY FOR OPTIONS:": 
POKE 764,255:CLOSE H4 

820 IF PEEK(764)<>255 OR PEEK(53279)<> 
7 THEN POKE 764,255:G0T0 5000 
846 GOTO 820 

900 ? :? "TYPE RECORD NUCffiER TO BE UPD 
ATED"J:TRAP 900:INPUT RN:TRAP 40000 
920 IF RN<ARRAY AND RN>0 AND RN=INT(RN 
) THEN 960 

940 ? CHRS(253):? "INVALID RECORD NUMB 
ER'UGOTO 900 

960 POINT H4,SEC(RN),BYT(RN) 

980 INPUT H4,RECS:? CHR$(125) 

1000 ? :? "RECORD ";RN:? :? RECS 
1010 ? :? "TYPE 1 TO UPDATE QUANTITY": 
? "TYPE 2 TO CHANGE DESCRIPTION":? "TY 
PE 3 TO EXIT" 

1020 TRAP 1000:INPUT CHOICE:TRAP 4O000 
1040 IF CHOICE<1 OR CH0ICE>3 OR CHOICE 
OINT (CHOICE) THEN ? CHRS (253) : GOTO 10 
00 

1060 ON CHOICE GOTO 1100,1300,1080 
1080 POINT tt4,3EC(RN),BYT(RN):PRINT H4 
; RECS: CLOSE ((4; GOTO 5000 
1100 ? :? "TYPE POSITIVE NUMBER TO INC 
REA5E ITEMS":? "TYPE NEGATIVE NUMBER T 
0 DECREASE ITEMS" 

1140 TRAP 1100:INPUT MUfSER:TRAP 40000 
1160 ITEM5-VAL(RECS(5,7)):ITEMS=ITEMS+ 
NUMBER 

1180 IF ITEMS>999 THEN ? CHRS(253):? " 
ITEMS CANNOT EXCEED 999":GOTO 1108 
1200 IF ITEMS<0 THEN ? CHRS(253):? "IT 
EMS CANNOT BE A LESS THAN ZERO’UGOTO 1 
120 

1220 IF ITEMS<10 THEN RECS(5,6)="00":R 

ECS(7,7)=STRS(ITEMS):GOTO 1000 

1240 IF ITEMS <180 THEN RECS (5,5)="0":R 

ECS(6,7)=STRS(ITEMS):GOTA 1A00 

1260 RECS(5,7)=STR$(ITEMS):GOTO 1000 

130O ? CHRS(125):? :? "RECORD ";RN:? : 

? RECS 

1320 ? :? "TYPE NEW DESCRIPTION UP TO 
22 POSITIONS" 

1340 INPUT DESS:LD=LEN(DESS) 

1360 IF LD>22 THEN ? CHRS(253):? "FIEL 
D TOO LONG, EXTRA IGNORED" 

1380 IF LD-22 THEN 1420 

1400 FOR BLANK=LD TO 22:DESS(LEN(DESS) 

+1)=" ":NEXT BLANK 


1420 RECS(9,38)-DE5S:G0T0 1000 
2000 ? CHRS(253):? :? "DATAFILE NOT ON 
DISK:TRAP 40OO0" 

2010 FOR HAIT=1 TO 5O0:NEXT WAIT:GOTO 
5000 

5080 REM *** INITIAL DISPLAY OF OPTION 
S MXM 

5010 GRAPHICS 18:? »6:? 1(6;" INVENTORY 
OPTIONS:":? 06:? J(6;" 1 = CREATE FILE 

II 

5020 ? 1(6:? (»;" 2= DISPLAY/UPDATE": ? 

((6:? ((6;" 3= END PROGRAM" 

5048 CLOSE ((5 : OPEN »5,4,0,"K :" : GET »5, 

GC:CLOSE «5:GC=GC-48 

5060 IF GC<1 OR GC>3 THEN 5000 

5080 GRAPHICS 0:POKE 82,1:SETCOLOR 2,0 

,0:ON GC GOTO 100,300,6000 

6000 GRAPHICS 0:POKE 82,2:END 


CHECKSUM DATA 
(See pgs. 7-10) 

20 DATA 161,467,887,260,998,773,777,82 

0,204,222,294,135,704,49,680,7431 

310 DATA 667,231,617,590,580,241,701,6 

58,461,208,528,24,420,307,385,6538 

760 DATA 887,785,571,427,729,704,315,3 

11,891,498,709,443,866,682,198,9008 

1080 DATA 743,395,936,868,817,197,63,8 

5,456,987,634,949,21,624,90,7857 

1420 DATA 626,794,547,747,299,492,995, 

631,886,917,6934 

• 
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DISK DIRECTORY DUMP 


16K Disk 


by Tony Messina 


This utility is rather simple in nature, but can 
prove quite helpful when trying to remember what 
program is on which diskette. In order for this utility 
to work, you need the following items: 1) a disk 
drive, 2) a printer (40 or 80 column), 3) an ATARI 
computer with at least 16K of memory. The utility 
itself will give you a neat, formatted hardcopy of 
your disk directory (I told you it was simple!). The 
following article should also give you a general idea 
about IOCBs and the OPEN/CLOSE statements 
which are part of the BASIC repertoire. 

IOCBs. 

Many programs appearing in this book use OPEN 
and CLOSE statements to perform a particular func¬ 
tion. Pm sure such questions as "What is being 
opened/closed,” "How/Why is it being opened/ 
closed,” and "How can I open/close my own 
things?” have crossed your mind, so now would be a 
good time to find out what it’s all about!! 

One of the most difficult things to do on any com¬ 
puter is INPUT/OUTPUT, or I/O for short. Would 
you like to write the program (commonly called a 
driver) to print to the printer or list to the disk or 
input a character from the keyboard? It really isn’t all 
that fun. Thanks to those great ATARI folks who 
designed our systems (the operating system in par¬ 
ticular), we don’t have to worry too much about the 
above-mentioned items. We can control out I/O 
through an IOCB or Input/Output Control Block. 

The operating system has eight IOCBs. Each 
IOCB contains information as to the nature of the 
device we want to communicate with, where the 
driver for the device is located, where the buffer for 
the device is located, the length of the buffer, the 
command we are trying to execute on the device 
(OPNE, CLOSE, PUT CHARACTER, GET CHAR¬ 
ACTER, etc.), timeout values (i.e., how long do we 
try to execute a command before we decide to give 
up), etc. This information is used by the Central 


Input/Output (CIO) portion of the operating sys¬ 
tem when communicating with the device on the 
IOCB specified. 

Now that we know something about IOCBs, let’s 
look at how we set them up. 

OPEN and CLOSE. 

The OPEN command allows us to communicate 
with a device using the CIO facility. We don’t have 
to know machine language to access a device... we 
can use BASIC instead! OPEN just dedicates an 
IOCB to perform our command. We can think of it 
as opening a hotline to our device. The line will stay 
open until we hang up or CLOSE it. The form of the 
OPEN command is as follows: 

OPEN #I0CB,I/0 CODE, SPECIAL, DEVICE 

Parameters can take on the following values: 

IOCB — Any number from 0-7. Usually only 1-5 
is best, since the operating system uses IOCB 0 for 
the screen/editor, 6 for any graphics window (I’m 
sure you all have used a PRINT #6 statement), and 7 
for LPRINT and Cassette I/O. 

I/O CODE — 4=INPUT, 8=OUTPUT, 12= 
INPUT and OUTPUT, 6=DISK DIRECTORY IN¬ 
PUT and 9=OUTPUT (APPEND TO END OF 
FILE). 

SPECIAL — Is usually 0 but can be filled in based 
on the device you are using. If you are opening a 
screen mode other than GR.O, you would need to 
put the GR. mode number in the SPECIAL para¬ 
meter. If you have a sideways printing printer (say 
that 10 times quickly), you could get it to print side¬ 
ways by putting 83 as the SPECIAL parameter. 
When in doubt, use 0. 

DEVICE — Devices which we can control and 
which BASIC knows about are the KEYBOARD 
"K:”, GRAPHICS WINDOW "S:”, PRINTER 
"P:”, CASSETTE "C:”, DISK FILE "D:filename. 
ext”, SCREEN EDITOR "E:” and RS232 PORTS 
"R:”. 
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When opening a device, we must make sure that 
the parameters make sense. We wouldn’t want to 
open a printer for INPUT and OUTPUT, since most 
printers only allow OUTPUT. It also wouldn’t make 
sense to open the graphics window for DISK DIREC¬ 
TORY INPUT. See. . .it’s not all that complicated. 

Once we have opened a device, there are many 
things which can be done. Commands such as PUT 
#, GET #, PRINT #, etc. can be executed by BASIC 
directly to the device we have opened. The only thing 
we have to remember is not to use an invalid com¬ 
mand for the I/O CODE selected. If we opened the 
GRAPHICS WINDOW for OUTPUT, for example, 
then we could not use the GET command. Experi¬ 
ment using OPEN with its associated commands and 
you’ll soon become proficient in the mysterious 
world of ATARI I/O. 

How DDD uses IOCBs. 

This utility opens 2 IOCBs. IOCB 1 is opened for 
output to the printer in LINE 220, and IOCB 2 is 
opened for disk directory input in LINE 230. The 
filename to get has been set to ”D:**”, since we want 
to see all of the files. DEV$ is simply set to "P:” for 
the printer. I also set all my codes to constants for 
easier reading. The values can be found in LINES 
115-125. 

With these two IOCBs open, the rest of the utility 
is a snap. We input a file name in LINE 380 and 
output it to the printer. A nice thing about the direc¬ 
tory input command is that it also returns the num¬ 
ber of FREE SECTORS after the last filename has 
been input. LINE 385 checks for this and routes us 
to LINE 420 when we are done. Another item to 
note is that the printer now recognizes and so 
that we can format our output. LPRINT, under cer¬ 
tain circumstances, will recognize these two charac¬ 
ters, but it’s best to open a channel to the printer and 
do a PRINT # instead. 

The remainder of the utility performs error checks 
and issues prompts for the user. All of the major 
sections have been block commented and should 
present no major problems when you try and figure 
out what is being done. 

How to use it. 

Type in the listing and save it to your disk. You can 
now RUN the program. If you forget to turn on your 
printer or disk, you will be razzed until you do. Just 
follow the prompts and you’ll soon have a listing of 
all your directories. You can even print a title (18 
characters max) for each of your directories to help 
jog your memory. 

One last note. If your printer doesn’t support the 
expanded print mode, then you must change LINE 
305 by deleting the ESC/ESC/CNTL N sequence 
and also deleting the "*2)” from the centering cal¬ 
culation. If you have an EPSON printer, just change 
the code for expanded print to the appropriate 
code. □ 


10 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

15 REM * UTILITY 84 * 

2® REM * DISKCAT VER.1 * 

25 REM * BY T0MY MESSINA * 

3® REM » FOR A.N.A.L.O.G. COMPUTING * 

35 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

40 REM * 

45 REM XXXXXXXXXXXXXXXXXXX - H X 
50 REM * MAKE SCREEN TITLE * 

55 REM XXXXXXKXXXXXXKXKXXXXX 
60 REM * 

65 GRAPHICS 2:START=PEEKC560J+PEEKC561 
1*256:POKE START+9,6:P0KE START+10,6:P 
0KE START + 11,5 
70 POKE 712,32:POKE 711,19 

75 ? 86:" uQiQiOy 2 □*':? 86:? »6; n 
fflsB 0iS 0u[fp":? 1*6;" ============ 

= =====■':? 86;" BY" 


80 ? 86;" 
nr- ■ 


right 



? 86 :" aa 
: ? 86 ; 


85 ? 86;" ================ 

98 REM # 

95 REM IHUHHHHHHHHBHHHHHt 
100 REM * VARIABLE INIT * 
105 REM XXXXXXXXXXXXXXXXX 


110 REM * 

115 DIN DEVS(23:DIM TABS(401:DIM DIREC 
TOR YS(5):DIM FILENAMESC191:DIM ANSStl) 
120 DIRECTORYS="D:*.*":TABS=" 


125 DISK-2:PRNTER=1:DIRTAB=10:C0LWID=4 
8:0UTPUT=8:NULL=0:DIRIN=6:C0UNT=3 : SPAC 
E=3 

130 REM * 

135 REM XXXXXXXXXXXXXXXXXX 
140 REM * GET USER INPUT * 

145 REM XKXKXXXXXXXKMXKKXK 


COLUMN WIDTH 


150 REM * 

155 ? "*" 

160 DEUS='*P : 11 i TRAP 505:? 

: INPUT WIDTH 

165 IF WIDTH<>40 AND WIDTHO80 THEN GO 
TO 168 

170 IF WIDTH=80 THEN COLWID=WIDTH:GOTO 
215 

175 DIRTAB=1:C0UNT=2:SPACE=2 
180 ? 

185 REM * 

190 REM XXKXXXXXXKXXXXXXXKKX 
195 REM » OPEN DEVICES FOR * 

208 REM * INPUT/OUTPUT * 

205 REM XX»XX ** XXXXXXXXXXXXX 
210 REM * 

215 TRAP 495:LPRINT 

220 OPEN 8PRNTER,OUTPUT,NULL,DEVS 

225 TRAP 508 

230 OPEN 8DISK,DIRIN,NULL,DIRECT0RY$ 
235 REM * 

240 REM XXXXXXXXXXXXXXXXKXX - XX X X 
245 REM * ASK FOR HEADER NAME * 

250 REM XXXXXXXXXXXXXXXXXXKXXXX 

255 REM *_ 

260 ? " I:TH : : INPUT FILEN 

AMES 

265 IF FILENAMES^"' THEN FILENAMES="-D 
EFAULT NAME-’ 1 
270 REM * 

275 REM X X X X X X X X X X X X XX X XX X X 
280 REM * PRINT TITLE OUT » 

285 REM XXKXXKXXXKXXKXKXXXX 
290 REM * 

295 IF LEN {FILENAMES!>18 THEN GOTO 510 
300 TRAP 510 

305 PRINT 8PRNTER;TABS(1,INT((C0LWID-( 
LEN{FILENAMES!*2)1/213FILENAMES 
310 ? 8PRNTER:? 8PRNTER;TABS Cl,DIRTAB3 


315 REM * 

320 REM KKXXXXXXXXXXXXKXXXK 
325 REM * PRINT COLUMN ID * 

330 REM XXX xxxxxxxxxxxxxxxx 
335 REM * 

340 FOR HEADCNT=1 TO COUNT:? 8PRNTER;" 
FILHAME/EXT LEN";TABS(1,SPACE!;:NEXT 
HEADCNT:? 8PRNTER 

345 ? 8PRNTER:? 8PRNTER;TABS(1,DIRTAB1 









VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 65 


350 REM * 

355 REM XXXXXXXXXXXXXXXXXXXXX X XXXXX 
360 REM * GET FILENAMES AND PRINT * 

365 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 
370 REM * 

375 FOR X=1 TO COUNT 

380 INPUT ttDISK,FILENAMES 

385 IF LEN(FILENAMES)<17 THEN ? ttPRNTE 

R:? ttPRNTER ;TABS(1, ((COLWID-16)/2)-1) J 

FILENAME$:GOTO 420 

390 ? ttPRNTER ; FILENAMES ;TABS(1,SPACE) ; 

: NEXT X:GOTO 345 
395 REM * 

400 REM XXXXXXXXXXXXXXXXXXX -X KXX - X * 

405 REM * CK IF USER WANTS MORE * 

410 REM XXXX X XXXXX X XXXXXXXXXXXXXX 
415 REM * 

420 CLO SE ttDISK:CLOSE ttPRNTER 
425 ? '' iTig - rrinrra.-M^B '':: input anss 

430 IF ANSS<>''Y" AND ANSS<>''N'' THEN GO 

TO 420 _ _„ 

435 IF ANS$ = "N" THEN ? : 

GOTO 460_ 

446 ? i : IN 

PUT ANSS 

445 IF ANSSO ,, Y M AND ANSSO"H" THEN GO 
TO 440 

450 IF ANSS-"Y" THEN GOSUB 490:GOTO 22 
0 

455 GOSUB 490:RUN 
460 END 
465 REM X 

470 REM XXXXXXXXXXX W X - XXXXXXXXXX* 

475 REM * ERROR TRAPS FOLLOW * 

480 REM XXXXXXXXXXX X XXXXXXXXXXXX 
485 REM * 

490 ? " 

□MB' 1 ; .'INP UT ANSS : RETURN __ 

495 ? M B; l : G 

0T0 160 _ 

500 ? JiKltlMD 11 : CLOS 

E ttPRNTE R: GOTO 160 __ 

505 ? 

0J1E’': G OTO 160_ . , _, 

i:»*.H l8":G0T0 260 


EINSERT NEW DISK AND HIT <RETURI 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 771,6,123,386,973,790,73,36.95 

7,38,77,571,96,789,414,6100 

85 DATA 396,83,555,565,775,274,620,478 

,181,280,600,328,603,286,382,6406 

160 DATA 891,741,931,154,909,300,49,94 

0,82),29,276,732,876,711,271,8631 

235 DATA 287,288,220,291,293,179,615,2 

94,811,693,814,300,828,705,370,6988 

310 DATA 166,283,793,563,796,289,603,1 

80,290,366,580,369,296,778,660,7012 

385 DATA 23,135,307,293,438,296,285,96 

5,318,322,55,17,334,135,534,4457 

460 DATA 50,300,117,84,120,306,488,404 

,898,979,580,4326 




Rainbow Demo 


5 SETCOLOR 2,0,O:POKE 752,1:PRINT CHRS 
(125) 

10 DIM CS (24) 

20 FOR 1=1 TO 24 
36 READ D 

40 CS(I,I)=CHR$(D) 

50 NEXT I 
60 D=U5R(ADR(CS)) 

70 END 

100 DATA 162,0,173,11,212,201,32,208,2 
49,141 

110 DATA 10,212,142,24,208,232,232,288 
,246,142 

120 DATA 24,208,240,232 


CHECKSUM DATA 
(See pgs. 7-10) 


5 DATA 557,836,230,324,306,380,233,255 
,645,111,599,4476 
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16K Disk 

by Charles Bachand 


Over the years, we have all run across diskettes 
that just would not format. This was probably due to 
a scratch or dent on the disk surface, and even 
though the ATARI 810 disk drive returns the 
addresses of bad sectors to the computer (Huh, I 
didn’t know that!), the disk operating system makes 
no use of them. Well, how would you like to be able 
to use those disks that up until now you have been 
feeding to the trash? 

BURP (Basic Unusable-disk Reclaimer Pro¬ 
gram), is a machine language program that patches 
itself into DOS’s disk formatting routine. Being an 
AUTORUN.SYS file, it is loaded when the 
computer is first powered on and is essentially 
transparent to the user. The only programming 
limitation is that no other program can reside within 
the address space $600-$694. 

There are a couple of limitations involved in using 
BURP: 

1) The program will still return a bad sector error 
and abort if any bad sector is in the space taken up by 
the disk directory (sectors 360-368) or the disk boot 
(sectors 1-4). 

2) Do not save DOS out to a disk after BURP has 
run without also saving a copy of the 
AUTORUN.SYS file containing BURP to the same 
disk. The DOS will have been patched into BURP, 
and without BURP itself loaded into memory any 
attempt to format a disk will end with DOS dying a 
terrible death! (In other words, it bytes the dust.) 

BURP is divided into three sections. The first is a 
group of patches that load into the exisiting DOS. 
These patches wedge BURP into the Disk Operating 
System, and reduce the error retry count to allow 
the OS to say "I give up!” a lot sooner. 

Next follows the main section of the program that 
converts the bad sector numbers returned by the 810 
disk drive into the corresponding bits of the disk 
directory’s Volume Table Of Contents (VTOC). 
The VTOC has a bit for every sector on the disk. If a 
bit is on (1), this tells DOS that it may store data in 


that sector; no other file is currently using it. It also 
follows that if the bit is off (0), the sector is currently 
in use and should not be touched. 

We next compare these bits with those of a freshly 
formatted disk. If the bit is on then BURP will shut it 
off to mark it as being in use. However, if it was in use 
to begin with, then we are in trouble and BURP will 
produce a bad sector error. 

The last part of the program will check the number 
of sector errors on the disk. If there were no errors 
encountered, the program merely writes the first 
directory sector. Otherwise, we build a fake file entry 
with the name "Bad Sectors” and a length of the 
number of bad sectors. This entry is used as a flag to 
identify which of your disks caused problems. 

The completely documented Macro Assembler 
listing follows, as well as a BASIC program to 
generate BURP. 

There are two more limitations of this program 
that have surfaced. The larger of the two problems is 
the fact that it will not work with Percom disk drives. 
This is due to the fact that the Percom drive does not 
return bad sector numbers to the operating system if 
it cannot format a disk. The second problem shows 
up if you try to duplicate a disk using DOS option 
"J.” DOS 2.OS copies all sectors whose correspond¬ 
ing bit in the VTOC is set, it will try to copy the bad 
sectors which it cannot do. It will instead issue an 
error message. A way around this would be to copy 
individually every file on the disk. 

To generate the BURP program and have it 
SAVEd to a file, run the BURP maker program 
written in BASIC. The.object program will be stored 
on file D:AUTORUN.SYS, which will automatically 
load the program after DOS is loaded. 

If you want the option of using BURP or not using 
it, simply change the file name specified in the 
opening statement to something other than 
D:AUTORUN.SYS. To run BURP now, it will be 
necessary to call up the DOS Menu and perform a 
binary load from your chosen new file. □ 
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BASIC Listing. 


Patches to DOS 2.8S 


100 REM +++ BURP + + + 

110 REM BASIC UNU3EABLE-DX3K 
120 REM RECLAIMER PROGRAM 
110 REM 

140 OPEN HI,8,0,"D:AUTORUN.3Y3" 

150 TRAP 170 

160 READ A:PUT ttl,A:GOTO 160 
170 CLOSE til: END 

200 DATA 255,255,140,7,141,7,169,0 
210 DATA 76,13,78,13,76,82,13,142 
220 DATA 13,144,13,32,0,6,165,13 
230 DATA 163,13,208,248,32,101,6,0 
248 DATA 6,144,6,163,0,141,148,6 
250 DATA 141,147,6,172,147,6,177,71 
260 DATA 141,145,6,209,177,71,141,146 
270 DATA 6,200,201,255,208,8,205,145 
280 DATA 6,208,3,76,143,16,140,147 
238 DATA 6,163,0,160,3,78,146,6 
308 DATA 110,145,6,106,136,208,246,42 
310 DATA 42,42,42,168,163,0,56,106 
320 DATA 136,16,252,170,173,145,6,105 
330 DATA 10,168,138,43,63,208,5,104 
348 DATA 104,76,181,18,138,81,63,145 
350 DATA 63,160,3,177,63,56,233,1 
360 DATA 145,63,238,148,6,76,8,6 
370 DATA 172,148,6,240,21,162,10,183 
380 DATA 134,6,3,128,157,6,20,202 
330 DATA 16,245,163,36,141,1,20,148 
400 DATA 2,20,32,113,16,76,25,18 
410 DATA 36,66,37,100,32,83,101,33 
428 DATA 116,111,114,115,224,2,225,2 
436 DATA 133,6 


CHECKSUM DATA 
(See pgs. 7-10) 


100 DATA 347,105,821,83,280,726,842,13 
4,363,782,486,370,524,825,266,8154 
278 DATA 5,7,637,221,375,233,813,55,76 
1,548,3,748,738,505,21,6402 
428 DATA 348,740,1688 




Assembly listing. 


BURP - Bad Disk Reclaimer Program 
Written by Charles Bachand 


This program patches itself into 
ATARI' s DOS 2.8S to allow lor the 
formatting of physically damaged 
and previously unuseable diskettes 


Note: 


This program will not allow 
the formatting of a disk 
with damaged disk boot sectors, 


J 

! 


Sorry. 

• 

* 

System 

Equates 

VTC 


*45 

BAD 

= 

*47 

URTDIR 

= 

*1871 

WRVTC 

= 

*1895 

DELDOS 

= 

*1219 

ERDBAD 

= 

*12B5 

DIR 

= 

*1481 


{directory's VTOC pointer 
;bad sector buffer pointer 
{write directory sector 
{write volute table of contents 
;set no DOS 

jnormal bad disk sector exit 
{file directory buffer 


ORG *078C 

LDA #8 ;no retry on errors 

0R6 I8D4C 

JtP *8D52 {bypass bad sector errors 


ORG *8D8E 

JSt BD5 {patch new error handler 


ORG *8DA5 

Bt£ *8D9F ;do all but first sector 

JSR URTD8 {write first directory sector 


Routine to mark bad sectors as being 
in use on the disk's VTOC. Patched into 
the DOS at address *8D8E. 


ORG *0688 ;we had to put it someplace! 


BD5 


BD5LP 


BDCONT 


BS1 


BS3 


BS4 


LDA 

STA 

STA 

LDY 

LDA 

STA 

INY 

LDA 

STA 

INY 

CMP 

BNE 

Off* 

BNE 

JMP 

STY 

LDA 

LDY 

LSR 

ROR 

ROR 

DEY 

BNE 

ROL 

ROL 

ROL 

ROL 

TAY 

LDA 

SEC 

ROR 

DEY 

BPL 

TAX 

LDA 

ADC 

TAY 

TXA 

AM) 

BNE 

PLA 

PLA 

JMP 

TXA 

EOR 

STA 

LDY 

LDA 

SEC 

SBC 

STA 

INC 

JMP 


BADCNT 

BDSPT 

BDSPT 

(BAD),Y 

BSNUM 

(BAD),Y 

BSNUH+1 

8*FF 

BDCONT 

BSNUM 

BDCONT 

WRVTC 

BDSPT 

«e 

83 

BSNUH+1 

BSNUM 

A 

BS1 

A 

A 

A 

A 

88 

A 

BS3 

BSNUM 

818 


(VTC),Y 

BS4 


ERDBAD 

(VTC),Y 
(VTC) ,Y 

83 

(VTC) ,Y 

81 

(VTD.Y 

BADCNT 

BD5LP 


initialize 
bad sector counter 
and bad sector index 
load index 

get bad sector (low) 
store it for later 
increment pointer 
get bad sector (high) 
store it too 
increment pointer again 
end of data? 

No. not yet 
is low byte iFF? 

No. not at end yet. 

Yes. Write VTOC 
save index 
Zero accumulator 
shift sector nimber 
3 bits to the right 
through high and low bytes 
rem goes in A as XXX08000 
decrement count 
Done 3 times? No. 

Yes. rotate a left 4 
times, so that it will 
have data in low bits 
and look like 88088XXX 
use value as counter 
Zero accumulator 
set carry flag 
rotate carry through Acc 
decrement counter 
At Y'th position? No. 

Yes. save bit mask in X 

get byte number 

add offset to sector map 

use as VTOC index 

get bit mask back 

AND with VTOC 

Bad sector in use? No. 

YES! We are in trouble! 
pull return stack address 
and report error condition 
get bit mask again 
invert allocation bit 
and store it back in VTOC 
point to free sectors 
byte in VTOC 
set carry for subtract 
decrement number by one 
save it out again 
increment bad sector count 
loop back and do it again. 


If no bad sector errors, then just write 
out the first directory sector to disk. 






PAGE 68 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


H there are errors, we will put a -file 
entry into the directory telling how many 
sectors are bad and then write it to disk. 


WRTB0 

LDY 

BADCNT ;oet bad sector count 


BEQ 

NOERRS ;Bad sectors’ NO. 


LOX 

#10 ;Yes. File name to entry 

HOVFN 

LDA 

BADFN,X ;froni BADFN 


ORA 

#180 ;inverse video, UOU! 


STA 

BIR+5,X ;to directory buffer area 


BEX 

jdecrement counter 


BPL 

HQVFN ;Done 11 bytes’ No. 


LBA 

#180 ;mark File as locked 


STA 

DIR ;and in use 


STY 

DIR*1 jstore bad sector count 

NQERRS 

JSR 

WRTD1R ;write sector to disk 


JMP 

DELDOS ;mark disk with no DOS 

RETURN 

RTS 

jreturn after patching 

BADFN 

DB 

'Bad S' ;File name used to mark 


DB 

^ectors";the disk as damaged. 

BSNUH 

DS 

2 ;bad sector number 

BDSPT 

DS 

1 ;bad sector pointer 

BADCNT 

DS 

1 ;bad sector count 


END 

RETURN ;just return after loading 


Swirl Demo 


10 C=0:Q=1:SETC0LOR 1,5,5:DEG 
20 XI=80:YI=50:GRAPHICS 23 
30 PLOT XI,YI 
40 FOR 1=1 TO 1000 STEP 5 
50 (1 = Q + 1:IF Q>3.5 THEN 0=1 
60 COLOR Q:R=I/10:T=I 


80 IF Y+YI<0 THEM 140 

90 PLOT X + XI,Y+YI 

100 X= CI + C)/16++C0S (I+C+90) 

110 Y=tI+CJ/16*SIN(I+C+90J 
120 DRAMTO X+XI,Y+YI 
130 MEXT I 

140 SETCOLOR 2,8,2:SETCOLOR 1,8,5 
150 SETCOLOR 0,8,8:G0SUB 210 
160 SETCOLOR 0,8,2:SETCOLOR 2,8,5 
170 SETCOLOR 1,8,8:G0SUB 210 
180 SETCOLOR 1,8,2:SETCOLOR 0,8,5 
190 SETCOLOR 2,8,8:G0SUB 210 
200 GOTO 140 

210 FOR K=1 TO 13:MEXT K:RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 977,537,75,330,279,7,362,850,4 

82,117,132,836,737,370,877,6968 

168 DATA 373,886,376,895,697,163,3390 
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THE BLACK RABBIT 

2.0 


48K Disk 
by Brian Moriarty 


Let’s face it. Backing up disks with a single drive is 
a dull and time-consuming chore. Even with a 48K 
system, ATARI DOS will make you swap at least 
three times to copy a reasonably full disk. And then 
there are those disks DOS won’t copy — boot-load 
programs, Letter Perfect files, FORTH screens, 
anything recorded with a non-DOS file structure. 

One day I got sick of disk-swapping and decided to 
write a more efficient disk backup system. I wanted 
to be able to duplicate all 720 sectors of a disk with 
no more than two read/write passes. To accomplish 
this,I had to find a way to cram 360 sectors worth of 
data into RAM at once — 46080 bytes! 

A 48K ATARI contains 49152 bytes of user 
RAM. But the first four pages (1024 bytes) are 
reserved for use by the operating system ROM 
routines. A graphics mode 0 screen and display list 
require an additional 993 bytes. This leaves a 
maximum of 1055 bytes for the disk copier. 

The Black Rabbit fits into this cramped space with 
room to spare. Version 2.0 features simple one- 
button operation with audio/visual prompting, 
automatic formatting of the destination disk and a 
"Visible VTOC” (Volume Table of Contents) that 
lets you check the distribution of data on the source 
disk and monitor the progress of the copy. It "skips 
over” empty sectors and will not crash if it 
encounters an unreadable sector. 

Typing it in. 

Listing 1 is an ATARI BASIC program that will 
create an auto-booting image of the Black Rabbit on 
any disk. Listing 2 is the assembly-language source 
code, created with the MAC/65 Macro Assembler 
by OSS. This listing is only provided to show you 
how the program works; you do NOT have to type it 
in to use the Rabbit. 

Enter each line of the BASIC program carefully. 
Be especially careful with the DATA statements in 


lines 1000-1290. When you’re finished, LIST the 
program out to disk and use D:CHECK2 (see page 
9) to verify the accuracy of your typing. Use the 
following procedure to write your copy of Black 
Rabbit 2.0: 

1. Load the BASIC program into memory and type 
RUN. The line numbers between 1000-1290 will be 
displayed as each DATA statement is checked. If bad 
data is encountered, the program will list the line 
containing the error and stop so that you can correct 
it. Re-RUN the program until all data lines are 
thoroughly debugged. 

2. You will next be prompted to insert a blank disk 
into drive # 1. Make sure this disk contains no important 
programs or data, because it is about to be completely 
erased. 

3. Press the START key. The destination disk will 
be formatted and a copy of the Black Rabbit will be 
written out to the first six sectors. An error message 
will result if the disk is write-protected or cannot be 
formatted. 

4. The prompt "Rabbit disk okay” means success! 
Remove the Rabbit disk from the drive, replace it 
with one of your regular DOS disks and SAVE the 
BASIC program. You can use it to make extra back¬ 
up copies of the Rabbit. 

Rabbit, Run. 

Now it’s time to test the Black Rabbit. Re-insert 
the Rabbit disk in drive #1, turn off your computer, 
let it rest for a moment and turn it back on. 

If you see "Remove cartridge; requires 48K 
RAM” on your screen, you forgot to remove the 
BASIC cartridge. The Black Rabbit needs every byte 
your computer can spare, and the cartridge de¬ 
selects an 8K block of RAM. So pull the cartridge 
out and power-up again. You should now be looking 
at the Rabbit’s title screen (Figure 1). 
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Figure 1 

The 18x40 dot matrix on the bottom half of the 
screen is the Rabbit’s "Visible VTOC.” Each dot 
represents one of the 720 sectors on a standard 
ATARI disk. 

Put the disk you want to copy into drive #1 
and press the START key. The drive will begin 
spinning and you will hear the familiar beep-beep- 
beep of sectors being read into memory. As each 
sector is read, the corresponding dot in the Visible 
VTOC will change to a different character: 

□ indicates a data sector 
0 indicates an empty sector 
? indicates an unreadable sector. 

The Rabbit will beep again when his memory 
buffer is full. Remove the source disk, insert a blank 
copy disk and press START. Your copy disk will be 
formatted and the source data will be written out, 
one sector at a time. Each written sector will change 
its corresponding dot in the VTOC to an inverse dot 
character. Note that the Rabbit always uses the write- 
with-verify function of the 810 disk drive. It’s slower 
than writing without verify, but more reliable. 

The prompt "Insert source disk, press START” 
will re-appear at the end of the first read/write pass. 
Repeat the procedure outlined above. At the end of 
the final read/write pass, the Rabbit will offer to 
make another copy. Press START to re-run the 
Rabbit or press OPTION to boot the copy disk. 

Empty and/or unreadable source sectors do not 
take up any memory in the Rabbit’s disk buffer. So if 
the source disk has lots of empty or bad sectors, the 
Rabbit may be able to duplicate the whole thing with 
a single read/write pass. In any case, it will never take 
more than two swaps to copy an entire disk. □ 


Listing I. 

110 REM K^BLaCK^RSBBIT 2.9 MAKER * 
128 REM * BY BRIAN MORIARTY * 

133 REM * ANALOG COMPENDIUM W.l * 

150 REM 

160 CLR : DIM BtiFS (7683 , MLS <43 : FOR I-i 
TO 4: READ BYTE : ML $ CD -CHS $ (BYTE) ; NEXT 
I: POKE 752,1 


170 S«F$ (13 =»'♦'* : BUF$ C768J ; 8UF$ (23 - 

BUF$ : ? "RtyeriTying DATA lines.": 7 "LR 
eading Line 

ISO B=0:TOTAL=B;LXME=999: RESTORE 1809: 
TRAP 258 

190 LINE = LIME-H9 
288 POSITION 15,3 : 7 LINE 
210 FOR 1 = 1 TO 25:8 = 8+1:READ BYTE IT0TA 
L=T0TAL + BYTE;BUF$(8,B3 =CHR$ (BYTE) :NEXT 
I 

220 IF PEEK (1833 + 256#PEEX (1843 OLINE T 
HEN ? "4-Line LINE 3 "Missing.":END 
230 READ CHECKSUM: IF €HECKS!1M=T0TAL TH 
FN 198 

240 GOTO 360 

258 POKE 752.0: IF PEEK (1953 06 THEN 36 
0 

260 ? "4DATA lines verified.":? "4Tnse 
rt a blank disk in Drive Jtl." 

270 ? "4-Pr-ess 3235] to write disk.E” 

280 IF PEEK (532793 <>6 THEN 280 

299 POKE 769,1:POKE 770.33: 7 ”4For»att 

ing diSk.":X=U5RtADn (ML. S3 3 

380 IF PEEK (7713 01 THEN 7 "*i4ForMat e 

rrorf":? "ReMove write-protect tab or” 

:? "replace disk.":G0T0 278 

310 7 "4-Writing data.'UPQKE 770,87:P0K 

E 779.0 : 8ljFFER = ADR CBUF$3 

320 FOR SECT0R=i TO S 

330 POKE 773.SECTOR:POKE 773,IHT (BUFFE 
R/2563SPOKE 772.BUFFER-(256*PEEK(77333 
:X = USR(ADR £ML$3 3 

340 85JFF£R = 8UFF£R+12S:NEKT SECTOR 
350 7 "4Rabbit disk Okay.":END 
360 7 "Bad data at line LINE:LIST L 
XNE:END 

370 DATA 104,76.83,223 
380 REM * M/L DATA 

1880 DATA 0.6.123.4,134,4.169,0,163,14 

5.34.32.77.6.165.106.281.192.178.12.16 
9, 158.133, 134,169,2582 

1010 DATA 6,32,131.6,76,157,4,162,0,14 

2.198.2.134.129.134.131.142.68.2.232.1 
34,123,134,130.134.5130 

1920 DATA 9,142,1,3.134,144,24,165,88, 

105.239.133.136.133.138.165.39 105,0.1 
33,137.133,139,32,77,7734 

1830 DATA 6.169.192.133,134,169.6,32,1 

31.6.24.165.88.105.122.133.140.144.2.2 
39.141.238,138,208.2.19584 

1040 DATA 239,139.162,2,168.8.169.14,1 
45.133,280.192,249.208,249.24, 165,138. 
105,240,133,138,144,2,230,14151 
1950 DATA 139,202,16,231,32,143,6,24,1 
65,135,101,123,133,138.165,137,101.129 
, 133,139,169,226,133,134,169,17330 
1060 DATA 6.32.131,6.32,91.6.169,82,14 
1,2,3,165,128,141,10,3,165,129.141,11, 
3,32,33,223,19320 

1070 DATA 173,3,3.16,4,169,31.208.15,1 

60.127.177.132.203.7.136.16.249.169.16 
,208,2.169,128,133.21979 

.1.080 DATA 143.160.0.132,77,145.133.230 

, 138.208,2,230.139,230.128.208 2.230,1 

29 . .165.129', 201,2.298,6.25359 

1090 DATA 165,128.201.209,240.31,185.1 

43,291,128.288,181,24,173.4.3,105.128. 

141,4,3,133,132,173.5,23387 

1100 DATA 3,105,0.141.5,3.133,133,291, 

188,208.156,24,165,136.101.130,133,138 

, 165,137,181.131,133.139.31296 

1110 DATA 169,4,133.134.169,7.32.131,6 

,32.91.6,198,144.203,32,32.66,6.169,33 

.141,2,3,32.33276 

1120 DATA 83.223.173,3.3,201,1.240.14, 
169,72,133,134.169.7,32.131,6,32.91,6. 
240,224,32,143,35843 

1130 DATA 6,169.37,141,2,3,165,130,141 

,10,3.165,131,141,11.3, 160,9.132,77,1? 

7,138,133, 143,201,383.12 

1140 DATA 128,208,5,32,83,228.48,251,1 

69,142.180,0.145,133,230.133,298,2.230 

,139,230,130.203,2,230,41796 

1150 DATA 131,165,131,201,2.208,6,165, 

130.281.209.243.39 . .165 . .143,28.1 . .128.298 
,193,24,173,4.3,105,128,45099 
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1168 DOTS 141,4.3,173.5,3,185,0,141,5, 
3,281,183,208,172,76,1,5.169,38,133,13 
4,169,7,32,47266 

1170 DATA 131.6,173,31,208.281.6.240.1 
0,201,3,208,245,32,123,6.76.119,228.32 
,123,6,76.160,4,49854 

1100 DATA 169.0,141.4.3.169,4,141.5,3. 
96,24,165,88.105.42.133,140,165,89,105 
,6.133,141.96,52015 

1190 DATA 169,108,141.0.210,169,170,14 

1,1.210,169.0.133.20.165,20,201,15.208 

,250,169,0,141,1.218.55028 

1200 DATA 173,31,298,201,6.288,249,173 

,31.208,201,7.298,249,96,133,135,160,3 

3.177.134.145,140,136.16,58486 

1210 DATA 249,96,169,128,133.132,141.4 

,3,169,7,133,133,141,5,3,96,50,101,109 

,111,113,101,0,99,60917 

1220 DATA 97.114.116.114.105,190,103,1 

01,27,0,114,181,113,117,105,1.14,181,11 

5,9,20,24.43,8.58,33,62344 

1230 DATA 45,162,236,225,227,235,128,1 

78,225,226.226.233,244,128,146,142,144 

,0,98,121,0,34,114,105,97,66563 

1240 DATA 110,8,45.111,114,105,97,114, 

116,121,41,110,115,101,114,116,0,51,47 

,53,50,35,37,8,180.68466 

1250 DATA 195,115,107,12,0,112,114,181 

,115,115,0,179,180,161,178.188,0,8,8,4 

1,110,115,181,114,116,78837 

1260 DATA 0,35,47,48,57,8,180,105,115, 

107,12,8,112,114.101,115,115,0,179,180 

,161,178.180,8,0,72893 

1270 DATA 0,8.0,179.180,161,178,188,8, 

116,111,0,114,181,13,114,117,110,12,6, 

175,176,180,169,175,75459 

1280 DATA 174.8,116,111,0,98,111,111,1 

16,8,0,0.50,101,112,188,97,99,101,0,98 

,97,190,8,35,77294 

1290 DATA 47,48,57,6,100,105,115,107,1 
2,6.112,114,101.115.115,0,179,180,161, 
178,180,0,0,0,0,79326 


CHECKSUM DATA 
(See pgs. 7-10) 

508 DATA 539,353,257,477,551,89,898,13 
3,283,432,225,174,837,123,719,6090 
250 DATA 919,811,216,854,128,274,351,7 
88,597,732.905.252,815,484,37,8126 
1610 DATA 156.398.388,886,148,586,481, 
553,689,946,564,821,75,559,705,7787 
1160 DATA 357.84,666,352,37,172,294,89 
0,252,573,939,204,656,993,6479 


Listing 2. 


0108 

0110 

8120 

8138 

8146 

0150 

0160 

8178 

0180 

0198 

8200 

82ie 

8220 

8230 

0240 

0258 

8260 

0278 


; I********************* 

; * Black Rabbit 2.8 * 

; ********************* 

; Highspeed sector copier 
; -for single-dri we systems 
• 

« 

; by Brian Mori arty 
; ANALOG Compendium Volume 1 

; OS disk handler equates 

DEVNUM = $0381 
DCOMND = $8302 
OSTATS = $8383 
DBUFLO = $0304 
DBUFH1 = $0385 
SECTLO = $038A 


0280 SECTH1 = $B38B 
0290 DUSTAT = $02EB 
0380 DISKIO = $E453 
8318 ; 

8328 ; Disk handler commands 
8338 : 

8348 READ = $52 
8350 WRITE = $57 
0368 FORMAT = $21 
8378 ; 

0380 : Mi sc. system equates 
6390 * 

8488 dOLDST = $8244 
0418 BOOT’ = $99 
8428 SAVMSC = $58 
0438 C0L0R2 = $82C6 
0448 OLDADR = $5E 
0458 CONSOL = $D81F 
0460 RAMTOP = $6A 
8470 AUDF1 = $D208 
8488 AUDC1 = $D201 
8498 RTCLOK = $14 
0508 ATRACT = $4D 
0518 COLDSV = 4E477 
0520 ; 

8530 ; Interna! program equates 
8548 : 

8550 RTGTAL = $88 
0568 WTOTAL = $82 
0578 BP01NT = $84 
0580 PPOINT = $86 
0598 SCREEN = $88 
0680 VTOC = $8A 
8618 LINE = $8C 
0620 SAVEY = $8E 
0630 SBYTE = $8F 
0648 FFLAG = $98 
0650 ; 

0668 ; Characters For "Visible VTOC' 
8670 ; 

0680 DOT = $8E 

8690 DATA = $88 
8708 BAD = $1F 

8718 WRITTEN = $8E 
8728 NOTHING = $10 
8738 ; 

8748 ; Memory usage 
0758 ; 

0768 Dim = $8400 ; Duiwny butter 

0770 ORIGIN = $8488 ; Program start 
0780 BUFFER = $0789 ; Data butter 
8790 ; 

8800 *= ORIGIN 

0816 ; 

8820 ; 6 bytes to control boot-up 
8830 i 

8840 .BYTE $89,$06 ; It boot sects 

8850 .BYTE 0RIGIN&255.0RIGIN/256 

8868 .BYTE ENTRY&255,ENTRY/256 

0870 : 

0888 ENTRY 
8890 ; 

8900 ; Init screen line pointer 
0918 ; 

0928 LDA #0 

0938 TAY 

8940 STA (OLDADR),Y ; Kill cursor- 

0950 JSR TOPLINE 

0960 ; 

0978 ; Check tor 48K RAM 
8988 ; 

0990 ' LDA RAMTOP 
1808 CMP #$C8 ; $C0 = 48K 

1010 BCS RABBIT ; ) OR = 48K 

1828 ; 

1030 ; Print RAM warning 
1040 ; 




THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


PAGE 72 


1050 

1060 

1070 

1080 

1090 

1100 

1118 

1120 

1138 

1140 

1150 

1168 

1178 

1188 

1198 

1280 

1218 

1228 

1230 

1248 

1250 

1268 

1270 

1288 

1298 

1308 

1310 

1328 

1330 

1340 

1350 

1368 

1370 

1380 

1390 

1408 

1410 

1420 

1438 

1440 

1458 

1460 

1478 

1480 

1498 

1588 

1510 

1520 

1538 

1540 

1550 

1560 

1570 

1588 

1598 

1608 

1610 

1628 

1638 

1640 

1658 

1668 

1678 

1680 

1690 

1788 

1718 

1720 

1730 

1748 

1750 

1768 

1778 

1788 

1798 

1800 

1810 


LDA IUARNING&255 
STA PP01NT 
LDA ttUARNING/256 
JSR MESSAGE 

Freeze 

JMP FREEZE ; Infinite loop 

■ m*M«*#*M****«* 

; * Initialize R/U * 

; a******************* 

Babbit 

; Initialize important things 

LDX 88 ; Black 

STX C0L0R2 ; Background 

STX RT0TAL+1 ; Clear MSB 

STX WTOTAL+1 ; Ditto 

STX COLDST ; Coldstart flag 

I NX ; X = 1 

STX RTOTAL ; LSB 

STX UTOTAL ; Ditto 

STX BOOT? ; Boot flag 

STX DEWUM ; Drive *1 

STX FFLAG ; Format enable 

; Setup VTOC screen pointer 


LDA SAWSC ; Addr of screen 

ADC 8239 ; 6 lines down 

STA SCREEN 

STA VTOC 

LDA SAWSC+1 

ADC 80 

STA SCREEN*1 

STA VTOC+1 

| Print title 

’ JSR TOPLINE 
LDA 8TITLE&255 
STA PPOINT 
LDA 8TITLE/256 
JSR MESSAGE 

; Reset screen pointer 

’ CLC 

LDA SAVMSC 

ADC 8122 ; X=2, Y=3 

STA LINE 
BCC DODOTS 
INC LINE+1 

1 

; Init VTOC display matrix 

5odots 

INC VTOC 
BNE MATRIX 
INC VT0C+1 
MATRIX 
LDX 82 
L00P1 
LDY 88 
LDA 8D0T 
L00P2 

STA <UT0C>,Y 
INY 

CPY 8248 
BNE L00P2 

CLP 

LDA VTOC 
ADC 8248 
STA VTOC 


1830 

1840 

1850 

1868 

1870 

1888 

1898 

1988 

1918 

1928 

1938 

1948 

1950 

I960 

1978 

1980 

1998 

2088 

2810 

2828 

2038 

2048 

2850 

2068 

2078 

2088 

2898 

2188 

2118 

2128 

2138 

2140 

2158 

2168 

2178 

2188 

2190 

2208 

2218 

2228 

2230 

2248 

2250 

2260 

2278 

2288 

2290 

2380 

2310 

2320 

2338 

2348 

2358 

2360 

2370 

2380 

2398 

2408 

2418 

2420 

2438 

2440 

2458 

2468 

2470 

2488 

2498 

2500 

2510 

2520 

2538 

2540 

2558 

2568 

2570 

2588 

2598 


MORE 


oUu nuKt 

INC VTOC+1 
E 

DEX 

BPL L00P1 


»***#*«**#****#« 

* READ Routine * 

H****f*«***t**i*f 

Deader 

; Reset buffer addr pointers 
JSR REPOINT 


Update VTOC pointer 
CLC 

LDA SCREEN 
ADC RTOTAL 
STA VTOC 
LDA SCREEN*1 
ADC RTOTAL*1 
STA VTOC+1 

Print READ prompt 

LDA 8RPR0MPT&255 
STA PPOINT 
LDA 0RPROMPT/256 
JSR MESSAGE 

JSR WAIT ; START key 
LDA 8READ 

STA DCCttlD ; Set READ mode 

*f»**4«t*****m*«****t* 

* Start of READ loop * 

**********«***44«*****t* 

Aloof 

Update sector 8 

LDA RTOTAL 
STA SECTLO 
LDA RTOTAL+1 
STA SECTHI 

JSR DISKIO ; Fetch sector 
LDA DSTATS j Check status 


BPL SECSTAT 
LDA #BAD 
BNE SHOUSTAT 


Branch if okay 


; Check sector data for status 

&CSTAT 
LDY #$7F 
NEXTBYTE 

LDA (BPOINT),Y 
BNE DATAID 
DEY 

BPL NEXTBYTE 
LDA NOTHING 
BNE SHOUSTAT 
DATAID 

LDA 8DATA 
SHOUSTAT 
STA SBYTE 
LDY #0 

STY ATRACT ; Attract off 
STA (VTOC),Y 

; Update VTOC addr pointer 
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2 m 

INC VTQC 

3338 

; Check for okay format 

2610 

ONE UPCOUNT 

3390 

2628 

INC VTOC+1 

3400 

LDA DSTATS 

2639 UPCOUNT 

3418 

CMP #1 

2648 

INC RTOTAL 

3428 

BEQ NOFORM 

2658 

ENE SECTMAX 

3438 


2660 

INC RTOTAL+1 

3448 

j Print bad format warning 

2670 


3450 

2688 

j End o-f disk’ 

3468 

’ LDA #BADF0RM&255 

2698 

&CTMAX 

3478 

STA PPOINT 

2788 

3488 

LDA 0BADFORM/256 

2710 

LDA RT0TAL+1 

3498 

JSR MESSAGE 

2720 

CMP #*02 

3580 

JSR WAIT 

2738 

ENE DATACHECK 

3518 

BEQ ERASE 

2748 

LDA RTOTAL 

3528 


2758 

CMP #$D1 

3538 

INFORM 

2768 

BEQ WRITER 

3548 

. 

2770 

5 

3550 

’ JSR REPOINT ; Reset pntrs 

2788 

; Check Tor data sector 

3568 

. 

2798 

2888 

6atacheck 

3578 

3538 

LDA #WR1TE 

STA DCOWD ; WRITE command 

2818 

LDA SBYTE 

3598 

f 

2820 

CMP #DATA 

3688 

■ ************************* 

2838 

BNE RLOOP 

3618 

; * Start of WRITE loop * 

2840 

J 

3620 

; 4*44*444*444***4***4*44** 

2850 

; Add 128 to buffer pointers 

J 

3630 

j 

2868 

3640 

WLOOP 

2878 

CLC 

3650 


2388 

lBA DBUFLG 

3660 

; Update setor # 

2898 

ADC #$30 

3678 

2988 

S T A DBUFLO 

3688 

’ LDA WTOTAL 

2910 

STA BF'OINT 

3698 

STA SECTLO 

2928 

LDA DBUFHI 

3780 

LDA WTOTAL*1 

2930 

ADC #8 

3718 

STA SECTHI 

2940 

STA OBUFHI 

3720 


2958 

STA BP0INT+! 

3738 

j Get status of next read 

2960 

$ 

3748 


2978 

; Check if buffer Full 

3758 

’ LDY #8 

2980 


3768 

STY ATRACT 

2998 

’ CMP #$BC ; Top o-f buffer’ 

3778 

LDA (VTOO.Y 

3888 

BNE RLOOP ; No; keep going 

I 

3730 

STA SBYTE 

3810 

3798 

■ 

j 

3820 

; ******************* 

3388 

; Branch depending on status 

3030 

; * WRITE Routine * 

3818 

3840 

• ****44***4444**44** 

3828 

CMP #DATA 

3050 

1 

3830 

BNE SKIPSECT ; If no data 

3868 WRITER 

3840 

. 

3878 

J 

3858 

ikdRITE 

3830 

; In it ‘/TOC pointer 

3860 

JSR OISKIO ; Write sector 

3090 

3878 

BMI DWRITE 

3180 

CLC 

3338 

} 

3118 

LDA SCREEN 

3390 

; Display write status 

3128 

ADC WTOTAL 

3988 

j 

3138 

STA VTOC 

3910 

SKIPSECT 

3148 

LDA SCREEN*1 

3928 

LDA WRITTEN 

3158 

ADC WTOTAL*! 

3938 

LDY #0 

3168 

STA VT0C*1 

3948 

STA (VTOC),Y 

• 

3178 


3958 

3188 

; Print WRITE prompt 
# 

3968 

; Update VTOC, WTOTAL 

■ 

j 

3190 

3978 

3288 

LDA #WPR0MPT&255 

3988 

INC VTOC 

3210 

STA PPQINT 

3998 

BNE WRUP 

3228 

LDA #WPRCMPT/256 

4888 

INC VTOC+1 

3230 

JSR MESSAGE 

4010 

WRUP 

3248 

’ JSR WAIT ; START key 

4028 

INC WTOTAL 

3258 

4038 

BNE WSECTMAX 

3268 

’ DEC FFLAG 

4048 

INC WTOTAL*1 

3270 

4058 

WSECTmX 

3280 

BNE NOFORM ; Skip if Pass 2 

4068 

LDA WTOTAL*1 

3290 

J 

4070 

CMP #$02 

3380 

; Format disk 

4838 

BNE BUFLOOK 

3318 

1 

4890 

LDA WTOTAL 

3328 ERASE 

4180 

CMP #$D1 

3338 

JSR OUTPOINT ; buffer addr 

4110 

BEQ FINISHED 

3340 

LDA #F0RMAT 

4128 

3350 

STA DCCftfD ; format cmnd 

4138 

; Should buffer addr be updated’ 

3368 

JSR OISKIO ; Do it! 

4140 

3378 

1 
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4156 

4148 

4176 

4186 

4190 

4200 

4210 

4220 

4230 

4248 

4258 

4268 

4270 

4288 

4290 

4388 

4310 

4320 

4330 

4348 

4358 

4348 

4370 

4388 

4398 

4498 

4410 

4428 

4438 

4440 

4458 

4448 

4478 

4480 

4498 

4508 

4510 

4528 

4538 

4540 

4550 

4568 

4578 

4588 

4598 

4488 


BUFLOOK 
LDA SBYTE 
CMP #DATA 
8NE ULOOP 


Update bufadr" 7 
No; next sect 


Update buffer address 
CLC 

LDA DBUFLO 
ADC #*88 
STA DBUFLO 
LDA DBUFH1 
ADC #6 
STA DBUFHI 

Buffer full' 7 

FULBUF 

CMP #$BC 
BNE ULOOP 

JMP READER ; Next pass 

■ ***************** 

; * End routine * 

; ***************** 

Finished 

LDA #C0MPLETE&255 
STA PPOINT 
LDA #C0MPLETE/256 
JSR MESSAGE 
DECIDE 

LDA CONSOL 

CMP #6 ; START press' 7 

BEG RERUN 

CMP #3 ; OPTION" 7 

BNE DECIDE 
JSR LETGO 

JMP COLDSU ; Cold boot 
RERUN 

JSR LETGO 
JMP RABBIT 


Re-run Rabbit 


; ***************** 
; * Subroutines * 
: ***************** 


4416 ; 

4628 ; Point to dummy buffer 
4438 : 

4640 DLMPOINT 
4458 LDA #DUMYt255 

4446 STA DBUFLO 

4676 LDA #DUftfrV256 

4688 STA DBUFHI 

4690 RTS 

4780 ; 

4718 ; Point to top screen line 
4728 : 

4736 TOPLINE 


4740 CLC 

4756 LDA SACMSC 

4768 ADC #42 ; X=2, Y=1 

4776 STA LINE 

4788 LDA SAUHSC+1 

4798 ADC #0 

4888 STA LINE+1 

4818 RTS 

4820 ; 

4830 ; Beep and wait for START key 
4840 ; 

4856 Wait 

4868 LDA #166 ; Freq = 100 

4870 STA AUDF1 

4886 LDA #4AA ; D & V = 16 

4890 STA AUDC1 

4986 LDA #6 

4916 STA RTCLOK ; Clear count 


4920 BEEP 


4936 

LDA RTCLOK 


4946 

CMP #15 ; 

1/4 sec 

4958 

BNE BEEP 


4960 

LDA #8 


4970 

STA AUDC1 ; 

Si lence 1 

4980 

4 


4990 

; Check key 


5060 

5616 

toLBlT 


5826 

LDA CONSOL 


5836 

CMP #6 


5846 

BNE H0LD1T ; 

Pressed 7 

5056 LETGO 


5060 

LDA CONSOL 


5870 

CMP #7 


5888 

BNE LETGO ; 

Till released 

5090 

RTS 


5108 

4 


5118 

; Print text messages 

5128 

4 


5138 MESSAGE 


5140 

STA PPOINT 1 


5158 

LDY #33 


5166 NEXTPRINT 


5170 

LDA (PPOINT),Y 

5188 

STA (LINE),Y 


5190 

DEY 


5208 

BPL NEXTPRINT 


5216 

RTS 



5220 ; 

5236 ; Set buffer pointers 
5248 : 

5250 REPOINT 

5266 LDA #BUFFER&255 

5278 STA BPOINT 

5288 STA DBUFLO 

5296 LDA #BUFFER/256 

5388 STA BPOINT +1 

5318 STA DBUFHI 

5328 RTS 


******************* 
* Messaqe texts * 
******************* 


5338 
5348 
5358 
5340 
5378 

5386 WARNING 

5398 .SBYTE ‘Remove cartridge; reouires 48K RAM 
5488 ; 

5418 TITLE 

5426 .SBYTE ‘Black Rabbit 2.8 by Brian Moriarty 
5436 : 

5440 RPROMPT 

5450 .SBYTE “Insert SOURCE disk, press START 
5448 ; 

5470 UPROMPT 

5488 .SBYTE ‘Insert COPY disk, press START 
5498 j 

5508 COMPLETE 

5518 .SBYTE ‘START to re-run, OPTION to boot 
5528 ; 

5536 BADFORM 

5546 .SBYTE ‘Replace bad COPY disk, press START 


5558 ; 
5568 


.END 
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OISKTOOL REV. 3 


32K Disk 
by Tony Messina 


Disk Tool is designed to work with an ATARI 
400/800/1200 with at least 32K of memory and up 
to 4 single-density disk drives. The key is SINGLE 
density. PERCOM, RANA, MICRO¬ 
MAINFRAME and other double density drives can 
run Disk Tool, but only in the single-density mode. 
Sorry, but Disk Tool was designed and written back 
in the olden days BD (before double density), and 
would require a complete overhaul in every aspect. 

Disk Tool history. 

My need for a disk utility made its appearance 
shortly after my disk drive arrived in March, 1981. I 
was plagued with disk link errors and crashed files all 
over the place. To put it mildly, "Boy, was I really 
mad!” It was then I decided to write a program that 
would allow me to access any sector on the disk. To 
make a long story short, I got a copy of the DOS 1 
source listing and ATARI Tech Manual. I then 
locked myself in the den and proceeded to work. 50 
gallons of coffee, two power outages and 5 billion 
phone calls to ATARI later, I emerged victorious. I 
had actually managed to READ and WRITE to a 
disk sector without using the File Management 
System (FMS) or Utility Code in DOS 1. Yaaayy!! 

When DOS 2 arrived on the scene, I converted the 
Tool. Some letter I had received prompted me to 
organize the Tool and publish it as a 2-part article in 
A.N.A.L.O.G. Computing. Response to the pro¬ 
gram and the article was outrageous. When A.N.A.- 
L.O.G. editor Lee Pappas mumbled something 
about a Compendium, I saw the opportunity not 
only to improve the article and documentation, but 
also the method by which I could include the most 
requested enhancements to the Tool. So here it is, 
everything you ever wanted to know about disk 
structures and Disk Tool. And away we go. . . 

Disk sector structure. 

The ATARI 810 disk drive, in conjunction with 
the File Management System (FMS), organizes data 
on a diskette into blocks called sectors. There are 


720 sectors (numbered from 0-719) on each diskette 
after it is formatted by the Disk Operating System. 
The sectors are laid out in what are known as tracks. 
There are 40 tracks per diskette, each containing 18 
sectors. To clarify the last two statements, I have my 
patented "formatted diskettes are like onions” dog 
and pony show. Next time you cut an onion in half 
(when you make onion rings, mushrooms and 
onions, etc.), lop off a hunk in the middle about 
1/4 inch wide. Now turn the onion so that the big 
round part faces you. Each individual ring of that 
onion is exactly similar to a track on the diskette. Go 
ahead, pull off the outer ring. Now, if you cut that 
ring into 18 equal pieces, each piece would repre¬ 
sent a sector. The outer ring is track 0. As you move 
inward, the next ring is track 1 and so forth until you 
reach track 39. Each track would contain 18 sectors. 
Track 0 contains sectors 0-17, track 1 has sectors 18- 
35, etc. 

Now you have an idea of how a diskette is organ¬ 
ized. Disk Tool is designed to work at the sector 
level. Although there are 720 sectors on each 
diskette, not all sectors are available to you, the user. 

You’ve just formatted a diskette. Ahhh, the feeling 
of power, 720 sectors to store all of your programs. 
You hit the A OPTION in DOS (just to see that 
magic number 719). Upon hitting RETURN, the 
number 707 appears when using DOS 2 and 709 
appears when using DOS 1. What! What happened? 
Well, it’s quite simple, friends. Although there are 
720 sectors, only 707 are available for your use with 
DOS 2 and 709 sectors with DOS 1. The other 
sectors are reserved for use by DOS. The disk direc¬ 
tory steals 8 sectors starting at sector 361 and 
running to 368. One sector (360) is allocated for the 
VTOC (Volume Table of Contents, pronounced 
"Vee-Talk”). The boot portion of FMS also 
occupies 3 sectors (1,2,3) for DOS 2, only 1 sector 
for DOS 1. That’s what happened to your 12 missing 
sectors for DOS 2 and 10 missing sectors for DOS 1, 
so don’t be alarmed. 
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With that out of the way, it’s time to discuss the 
different types of sectors. Yes, I know it sounds con- 
fusing. . . after all, isn’t a sector a sector? The answer 
is yes. Each sector is capable of holding 128 bytes of 
data. The manner in which the data is structured on a 
sector is dependent on a particular sector’s purpose 
or type. I like to define sectors as being of 4 types: 

1. )Data Sector: Containing program 
information, text files, etc. 

2. ) Boot Sector: Containing ML program 
data. 

3. ) Directory Sector: Containing program 
names and associated data. 

4. ) VTOC Sector: Sector containing free 
count and disk bit map. 

Let’s take a look at the differences and similarities 
of each type of sector. 

Data sectors. 

This is the most common type of sector on your 
disk. Technically, all the sectors are data sectors. I 
use this name only to distinguish its format from 
other types of sectors. 

Whenever you use the commands SAVE 
"D:XXX”, LIST ”D:XXX” or invoke the Binary 
Save option from DOS, the actual programs are 
written to the disk in data sector format. The format 
is quite simple. Bytes 0-124 contain actual program 
data. Bytes 125-127 contain sector identity data or 
"link data.” Figure 1 illustrates this type of format. 


Notice that the lower two bits of byte 125 and all 
of byte 126 combined point to the next physical 
sector of this file. A zero (0) indicates that this is the 
last sector of a file. 

One variation in data sector format occurs when 
the Binary Save option is used to save an area of 
memory to the disk. The variation occurs with the 
first 6 bytes of the first sector of the binary file. 
Those 6 bytes are commonly referred to as the 
"binary file header.” The header is formatted as per 
Figure 4. 


Byte Q 

1 

2 

3 

4 

5 



LSB 

MSB 

LSB 

MSB 

FF 

FF 

Start 

Start 

End 

End 



addr 

addr 

addr 

addr 


Figure 4. 

If, for example, you answer the Binary Save Prompt 
DOS with "MLPROG,0600,065F,” then the first 6 
bytes of the first sector of disk storage for this pro¬ 
gram would look like Figure 5. 


Byte Q 

1 

2 

3 

4 

5 

FF 

FF 

00 

06 

5F 

06 


Binary file Start addr End addr 

definition bytes LSB/MSB LSM/MSB 

Figure 5. 

Binary program save example. 


o 


124 125 127 


125 Bytes of Program Data 


Link 

Data 


Figure 1. 

Data Sector Format. 

The link data for DOS 2 is formatted as in Figure 
2, while link data for DOS 1 is as per Figure 3. 


Byte 125 


Byte 126 

Byte 127 

File 0 
this sector 
belongs to 

i i 
Mo 

_LL 


i n mi 

7|‘>M4h|2|l|0 

-L.l_iU.-LL 


ti of actual program 
bytes (0-7D) in 
this sector 


10 Bits 

Next sector of this file 


Figure 2. 

DOS 2 link structure. 


Byte 125 Byte 126 Byte 127 


File U 

this sector |l |0 1 

' 6 

5 

4 

3 

2 1 

. 0 

Sector Sequence 
number 

belongs to , j 







o-x* 


10 Bits 


Next sector of this file 

*The first sector of a file contains 0, the second 1 etc... the last sector of 
a file is unique however. The value in Byte 127 will contain (# of actual 
bytes used + 1) + $80 for the last sector of a file. 

Figure 3. 

DOS 1 link structure. 


Directory sectors. 

There are 8 directory sectors starting at sector 361 
and running sequentially to sector 368. The 
directory contains the names of all the programs on 
the diskette along with the other information about 
the program. Each directory entry uses 16 Bytes. 
There is enough room to hold 8 program names (and 
associated data) on 1 sector. (16 Bytes * 8 names + 
128 Bytes or 1 sector.) Therefore with 8 sectors 
available, we can have (8 sectors *8 names per sec¬ 
tor) = 64 possible file names total. On a directory 
read, DOS starts at sector 361 and keeps reading 
sectors until there are no more names. Directory 
entries have the following format: 



Figure 6. 
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NOTE: Bits set (+1) indicate condition listed. 

Bit 6 set indicates the file is in use. 

Bits can be combined for multiple status. 

Example: Bits 1,5 and 6 set would mean file was 
created by DOS 2, it is locked and in use. 

Here is a quick reference to the possible status 
values. 

$00=File is never used. 

$01=File open for output. 

$02=File created by DOS 2 (if bit not set, 

assume DOS 1). 

$20=File locked. 

$40=File in use. 

$80= Entry deleted. 

How does DOS use the information we have dis¬ 
cussed so far? In simple terms, when you type LOAD 
"D:XXX” in BASIC, the FMS opens the directory 
for input, reads in the directory sectors starting at 
sector 361 and searches for a match. If it finds an 
entry that matches the program name you asked for, 
FMS extracts the starting sector from bytes 3 and 4 
of the entry and also the length from bytes 1 and 2. 
FMS then positions the read/write head of the disk 
drive at that sector, reads in the sector, extracts the 
link information (to find the next sector) and checks 
to see if this sector actually belongs to the file you 
wanted. If it does, then FMS checks to see if this is 
the last sector to load. (Remember, the next sector to 
load is in the link bytes.) FMS keeps loading until the 
next sector to load is 0. 

If, during this process, the file number of the 
sector just loaded does not match the one you are 
looking for, a file number mismatch error (#164) 
occurs. This usually means that either the disk link 
information of the previous sector was incorrect, or 
possibly the link data of the current sector is 
incorrect. We’ll discuss how to fix this later. 

Boot sectors. 

I use the term "boot sector format” when referr¬ 
ing to files which start at sector 1 and run 
contiguously to sector X, where sector X is the 
ending sector. These files do not need any language 
cartridges or DOS. They are completely self- 
contained programs which load and execute upon 
powering up the computer. Do not confuse these 
with AUTORUN.SYS files. 

Remember the header bytes for binary files saved 
using the Binary Save Option of DOS? Well, boot 
sectors have a similar structure. Sector 1 of the disk 
contains the magic header information which is 
structured as per Figure 7. 


0 by 

# of 

LSB 

MSB 

LSB 

MSB 

tradition 

sectors 

Load 

Load 

Init addr 

Init addr 


to load 

addr 

addr 




Boot sector header (sector 1) 


Figure 7. 


Whenever you turn on your computer, a check is 
made to verify if any cartridges are present. If a car¬ 
tridge is present, the "Allow Disk Boot Bit” (BitO of 
location $BFFD) is checked. If it is zero (as it would 
be if no cartridge were present) then the ROM boot 
routine is invoked. This routine goes out to sector 1 
of the disk, reads in the data contained there and 
interprets it. Byte 1 tells the system how many 
sectors to read. Bytes 2 and 3 tell the system where to 
load the data, and bytes 4 and 5 tell the system where 
to start executing the ML program once it is loaded. 

Boot sectors do not have any link data. 
Consequently, each boot-type sector can contain 
128 bytes of program information. I said "can” 
because the last sector may be a short sector con¬ 
taining less than 128 bytes. The FMS for DOS 2 
contains 3 boot sectors worth of program data, while 
the FMS for DOS 1 has only 1 boot sector. 

VTOC sector structure. 

Sector 360 contains the VTOC or Volume Table 
of Contents. The purpose of the VTOC is to keep 
track of which sectors on the disk are or are not being 
used. 

There are basically two important parts of the 
VTOC: the miscellaneous portion (bytes 0-4) and 
the sector use map (also called sector bit map). Bytes 
0-4 are used as follows: 

Byte 0=Use byte (2 for DOS 2, 1 for DOS 

1 ). 

Bytes 1 & 2=Total # of sectors (LO/HI 
format). 

Bytes 3 & 4=Free sector count (LO/HI 
format). 

The sector use map begins at byte $0 A and runs to 
byte $63. Each bit of each byte represents one sector 
on the disk. If the bit is zero, then that sector is being 
used. If the bit is 1, then that sector is available for 
free. Bit 7 of byte $0A represents sector 0, which 
does not exist (see experiment 5 for explanation). Bit 
6 of byte $0A represents sector 1, etc., all the way 
down to bit 1 of byte $63 which represents sector 
719. Use Disk Tool to examine the maps of your 
own diskettes. 

Well, that about wraps up our discussion on disk 
data structures. I realize I’ve clobbered you with 
many new concepts and material. The best way to 
digest this information is to use the Disk Tool 
experiments which follow. 

Disk Tool structure. 

You may have noticed that Disk Tool consists of 3 
programs: an AUTORUN.SYS creator program, a 
machine language loader and the actual BASIC code. 
Why 3? Well, the original intent was to make Disk 
Tool fit into a 16K disk system. That was when the 
Tool was small. Now it’s so huge that it won’t all fit, 
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so I kept it at three programs. Disk Tool sets itself up 
as follows: 

1. ) Protect 3000 bytes of low end memory 
and disable the break key (via AUTORUN. 
SYS); 

2. ) Load the ML portion of Disk Tool into 
the protected area, and load the Disk Tool 
BASIC program; 

3. ) Execute Disk Tool from BASIC. 

Since I believe it is more important to know how 
to use this utility, I won’t get into a long-winded 
dissertation about how it works (as 1 haven’t been 
long-winded already in this article). If you study the 
listings along with the documentation, you should be 
able to get a very good understanding of what is going 
on. 

Warnings. 

Disk Tool will happily allow you to wipe out your 
directory, the VTOC, DOS boot sectors or any 
other sector on your disk. It will ask you to verify 
prior to writing, but once a sector has been written, it 
may be too late. You don’t need to be an advanced 
systems programmer to use Disk Tool — only a 
careful programmer. It is suggested that you read the 
descriptions of each function as presented, and then 
perform all of the experiments in order to become 
familiar with Disk Tool and its capabilities. 

OK, warnings are behind us. Let’s move on. 

Getting things together. 

The first thing to do is to get a new diskette, format 
it and write out DOS 2 to the diskette. Type the list¬ 
ings in order from program 1 to 3. SAVE the three 
programs to your new disk. Suggested filenames 
follow: 

1. ) AUTORUN.SYS maker-MAK- 
AUTO.UTL 

2. ) ML loader—DSKTOOL.PT1 

3. ) Disk Tool BASIC —DSKTOOL.PT2 
These are only suggestions. If you decide to 

rename the BASIC Disk Tool portion, you must 
change the RUN command in the ML Loader so that 
you don’t get a file not found error. Run the AUTO¬ 
RUN.SYS maker first so it can create the AUTO¬ 
RUN.SYS file. Power down, power up with the same 
disk and type RUN "D:DSKTOOL.PTl.” 

A note on typing. 

The program listings for Disk Tool are fairly large 
(that’s an understatement). Suffice it to say if any 
data is missing or erroneously typed in, the Tool will 
not work correctly. I suggest that you purchase the 
disk version of this Compendium. You’ll not only 
save yourself hours of typing, but you will be assured 
that all programs will work correctly. I have spent 
over 200 hours debugging, testing and ensuring that 
the listings presented here are exact duplicates of my 
working copy of Disk Tool. It really does work! And 
now back to our regularly scheduled Disk Tool. 


Using Disk Tool (finally!). 

I know everyone has Disk Tool running. (Those 
of you who don’t keep trying.) The first thing you 
will see is the Command Menu and a "COMMAND 
OR SECTOR NUMBER” prompt. To examine any 
sector, just type in the number and hit RETURN. 
Only sectors 1-720 can be examined. Any number 
< 1 or > 720 will generate an error message. Sector 
numbers can be entered in either decimal or hex (if 
preceded by a $). Let’s try it out. Put in any of your 
program diskettes. 

Experiment # 1: 

Look at Directory Sector. 

Answer the prompt with 361 and hit RETURN. 
You will see the first sector of the directory. Com¬ 
pare each entry with the format of Figure 5. Once 
you feel comfortable with the format of the direc¬ 
tory, move on to the next experiment. 

Experiment #2: 

Look at Formatted Directory Output 
with "D” Command. 

Answer the COMMAND OR SECTOR 
NUMBER prompt with a D and hit RETURN. A 
formatted display should appear. All numbers 
appear in hex notation. This option displays 2 
sectors worth of directory data (16 program names). 
The sector number is the actual sector at which that 
directory entry resides. FILENAME is self- 
explanatory. START is the first disk sector which 
contains data pertaining to that program. LEN is the 
length or number of sectors that file contains. FIL# is 
the entry number in the directory for that file; and 
STAT is the file status in human readable form 
where: 

*=File locked. 

U= in use. 

D=File has been deleted. 

1 = File created by DOS 1. 

2=created by DOS 2. 

To examine more directory sectors, hit "+” and 
press RETURN. The new sectors will appear. To 
abort the directory format, just hit RETURN and 
our friend "COMMAND OR SECTOR 
NUMBER” will appear. 

Experiment #3: 

Trace/Examine a File. 

Now find a file you want to examine from the 
directory listing. (Try one other than DOS.SYS or 
DUP.SYS.) Find the start sector number for thatfile 
under the START column. Since the start number is 
in hex, type $ followed by the number. You don’t 
need to type in leading zeros. If the start number was 
00BF, then type $BF, for 01 CD type $1CD, etc. 
Then hit RETURN. The sector will appear in 
FIEX/ATASCII format along with the sector num¬ 
ber, next sector and file information. SECTOR 
NUMBER indicates the current sector number being 
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displayed. NEXT SECTOR points to the next sector 
containing data for this file. FILE NUMBER is the 
file number to which this sector belongs. The next 
sector does not have to be the current sector number 
+ 1 (more on this later). 

When you’re ready to look at the next sector, you 
can enter the number and hit RETURN. If the next 
sector happens to be the current sector +1, just hit 
RETURN or "+” and RETURN. If you want to 
look at the current sector-1, type ''-’’and RETURN. 
Trace your file, examining the format of the data, etc. 
Remember Figure 1. Try to look at all types of files: 
Binary, SAVE files, ASCII files, etc., and compare 
these with the appropriate figures. When you hit the 
end of a file, you’ll see that the next sector pointer 
will equal zero. 

Experiment #4: 

Change Bytes with "C” Command. 

Call up sector 720 on the disk. If it is all zeroes 
then you can use it. If it isn’t, type and hit 
RETURN until a sector is displayed with all zeros. 
At the prompt COMMAND OR SECTOR 
NUMBER, type in C and hit RETURN. The screen 
should change to yellow and a prompt should 
appear. Move the cursor (CTRL up, down, left, 
right, arrow, etc.) to the 1st hex value in byte 00 line. 
Replace the 00 values with the following: 

44 49 53 4B 54 4F 4F 4C 

Then hit RETURN. Make sure you overwrite each 
value of 00 and space between each byte. If you have 
done everything correctly, you should see a "secret 
message.” 

The C function only changes memory locations. 
Nothing has been written to the disk. You can only 
change one display line at a time. RETURN must be 
hit after your line changes are satisfactory. If you 
wish to change more data on the sector, simply hit C 
again, make your change, hit RETURN, etc. 

Experiment #4A: 

Change Bytes (ATASC1I method). 

Follow the procedure in Experiment #4. To 
change bytes, move the cursor over to the hex para¬ 
meter to change. Hit the space bar to blank out the 
first parameter of the hex number. Now type the 
ATASCII letter or number you want. Continue with 
the rest of the line, always remembering to precede 
the character you want with a space. Hit return and 
check your work. 

Experiment #5: 

Writing to Disk with "W” Command. 

As I mentioned previously, writing to the disk can 
be dangerous. Be careful! Sector 720 should be safe. 
Why? Well, there is a bug in DOS. DOS can only 
handle sector numbers from 0 to 719. The disk 
drive, however, will only accept commands for 


sectors 1-720. Some software developers have taken 
advantage of this useful quirk to protect their disks. 
So don’t write to 720 if something was there. If all 
was OK and you did Experiment #4, hit RETURN. 
Now type W and hit RETURN again. The screen 
will turn red and a verify prompt will appear. Answer 
Y to the prompt if you are sure you want to write to 
the disk. When the write is complete, the screen will 
turn green again and we’re back to the COMMAND 
OR SECTOR NUMBER prompt. Recall sector 720 
just to check what was written. 

Experiment #6: 

Trace File with "T” Command. 

Now that you’ve traced a file the hard way (if you 
didn’t do Experiment #3, then shame on you), we’ll 
do it using the T command. Call up the directory and 
pick a file (any file). Note the file number in the FIL# 
column. Hit T and RETURN. Enter the selected file 
number (hex or decimal) and hit RETURN. The 
computer should be busily grinding away, spewing 
out hexidecimal numbers along with the filename 
and start sector. When done, the word END should 
appear. This function shows you exactly which 
sectors on the disk the file you selected occupies. 

Trace will scream if it encounters any file number 
mismatch errors or short file errors. A short file 
error means that the length of the file in the direc¬ 
tory does not match the number of sectors traced. If 
this happens for every file you trace, then a possible 
typing error exists in the ML Loader portion of Disk 
Tool. 

Experiment #7: 

Set Drive Number with "S” Command. 

This straightforward command was a heavily re¬ 
quested addition to Disk Tool. At the COMMAND 
OR SECTOR NUMBER prompt, type "S” and hit 
RETURN. The current working drive number will 
appear as well as a prompt for the new drive number. 
Drive numbers 1-4 will be accepted and processed; 
anything else will produce a RAZZ and an error 
message. If you change to a drive that does not exist, 
trying to execute a command will again cause the 
infamous RAZZ/error message combination. 

Experiment #8: 

Print Screen with "P” Command. 

Another straightforward command. If you don’t 
have a printer, you may skip to the next experiment. 
If you do have a printer, then pick a screen which you 
would like a hard copy of and answer the 
COMMAND OR SECTOR NUMBER prompt 
with a "P” and RETURN. The message PRINTING 
SCREEN will appear and the screen will be dumped. 
If you fail to turn on your printer or interface, you 
will obtain an error message. 

You cannot print the HELP screen as the dump 
routine is only set up to dump Graphics 0. If you try 
to dump the HELP screen, you will get an IM¬ 
PROPER SCREEN CONDITION error message. 
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Experiment #9: 

Modify links with "M” Command. 

The modify links command is very powerful and 
one should exercise EXTREME CAUTION in its 
use. Improper use could cause you to destroy the 
integrity of a file or files and is guaranteed to make 
you exclaim that famous all-American expression 
"Awww Jeepers!” if used incorrectly. Since you 
have your experiment disk loaded, it won’t matter if 
we mess up a file and then fix it using the Tool. 

Find a nice, long file on your experiment disk by 
scanning the directory. Aha!, there’s one. OK, go to 
the starting sector of the file (indicated under the 
START column). Manually trace the file for about 4 
or 5 sectors and stop. REMEMBER this sector 
number. Answer the COMMAND OR SECTOR 
NUMBER prompt with M and RETURN. When 
the next prompt appears, type in the sector number 
which you remembered. The sector will be read in 
and the file number and next sector will be displayed. 
A prompt asking you for the new file number will 
appear. Type in a number other than what is dis¬ 
played but REMEMBER the old file number. 
Another prompt will appear asking you for the new 
next sector pointer. Type in a number which is 1 
more than the number being displayed but REMEM¬ 
BER the old number. Boy, we really messed up this 
file, huh? 

A message indicating the new links and a prompt 
to write the sector to the disk if correct will appear. 
We will now destroy your disk! No, only kidding. 
Hit W and RETURN. The screen will turn RED and 
the verify prompts will appear. Answer Y and write 
out the sector. Now, if you still remember the file 
number, hit T and RETURN. Enter the file number 
at the prompt and watch Trace in action. You should 
get an error message which indicates a FILE MIS¬ 
MATCH ERROR AT SECTOR $XXX where X is 
the sector number of the sector which you clob¬ 
bered. If you didn’t, then you probably typed in the 
wrong file number. OK. Let’s fix the error. 

Experiment #9A: 

Fix error from last experiment. 

Hit M and RETURN and recall the sector you 
clobbered. Change the file number back to what it 
was. Do NOT fix the next sector number yet. Type in 
the same number when prompted for the new sector 
pointer. After all the messages come up, write this 
sector back out again. Trace the same file. Every¬ 
thing will seem to be fine until the trace realizes that 
there are some sectors (1 sector in our case) missing. 
Trace will tell you how many sectors there should be 
as well as how many it found. The number of 
"should be” sectors minus the number of "found” 
sectors should equal the number of missing sectors. 
Fix the error by recalling that same messed-up sector 
and replacing the next sector pointer with the origi¬ 
nal value. Write it back out and re-trace. 


Experiment # 10: 

Recover a deleted file with "R” Command. 

Recovering a deleted file is no simple task using 
manual methods. This was the most requested func¬ 
tion to be added to Disk Tool, so here are the steps. 

Find a deleted file entry by scanning the directory. 
Answer the COMMAND OR SECTOR NUMBER 
prompt with R and RETURN. Answer the next 
prompt with the file number (hex or decimal) you 
want to recover and hit RETURN. Disk Tool will 
now be busy recovering the file. It will keep you in¬ 
formed with messages as it proceeds. Soon you will 
see the FILENAME.EXT RECOVERED message. 
Magic, huh? Now, before you go scrambling for 
those diskettes with deleted files, I must say that 
there are certain file conditions which must exist or 
RECOVER will not work — as a matter of fact, 
NOTHING will work! Let me explain. 

Recover file restrictions. 

In order for a file to be recovered, it cannot have 
any sectors which have been written on by other 
saves. When a file is deleted, DOS sets the file 
deleted flag in the file status byte of the directory 
sector where the name resides. It then traces that file 
to obtain the sector numbers which that file occu¬ 
pied. DOS sets the bits in the VTOC bit map, thus 
marking the sectors occupied by the file being 
deleted as now being available. On any subsequent 
saves to the disk, DOS first searches for an empty file 
entry in the directory sectors and places the new 
name and file status in that slot. DOS then examines 
the VTOC bit map searching for sectors which can 
be allocated to the new file being saved. If the sectors 
that it finds available are the same sectors belonging 
to a previously deleted file, DOS doesn’t care and the 
data belonging to the new file will overlay the deleted 
filed data. Once this is done, there is no way that the 
deleted file can be recovered. 

Now that the explanation is out of the way (did it 
make any sense?), let me just say that the recover 
function of Disk Tool makes extensive checks for file 
integrity, proper link structure and available sectors. 
If anything in the file being recovered is goofy, the 
message FILENAME.EXT CANNOT BE RE¬ 
COVERED, along with the appropriate reason will 
be displayed. The recover function will work with 
both DOS 1 and DOS 2 files, so that some of those 
oldies but goodies can possibly be rescued from obli¬ 
vion. 

The listings. 

Listing 1 — contains the data statements 
needed to create the AUTORUN.SYS file for 
Disk Tool. 

Listing 2 — is the assembly language source 
code listing for the AUTORUN.SYS file. This 
does NOT need to be typed in for Disk Tool to 
work. The AUTORUN.SYS creator (Listing 
1) will create the appropriate file. Listing 2 is 
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there for reference only. This should give you a 
pretty good idea of how to reserve some low- 
end memory, and also how to disable the break 
key prior to BASIC gaining control of the 
system. 

Listing 3 — is the ML loader program for 
Disk Tool. This program loads in all of the 
machine language instructions needed by the 
Disk Tool BASIC program. 

Listing 4 — (the huge one!) is the assembly 
language source code for Disk Tool utility. In it, 
you will find how to put a character on the 
screen, how to convert binary numbers to hex 
and hex to binary, how to display messages on 
the screen, how to go crazy trying to read an 
assembly listing and other common routines. I 
must say that this code is not the most efficient. 
Things can be done to improve it, so feel free. I 
will be glad to answer any questions or 
comments about it. My address is at the top of 
the listing (please send a SASE if you write). 

Listing 5 — is the Disk Tool BASIC code. I 
have completely overhauled the code and 
commented it like a maniac. The documenta¬ 
tion following Listing 5 gives all the addresses, 
label names and a complete cross-reference to 
the BASIC code. There is also a memory map 
which is valid only after Disk Tool has been 
loaded. 


pointer to the missing sector and write out the sector 
using the W command. 

This sounds like an involved process, and in some 
extreme cases it may be, but it sure beats retyping the 
original file. 

Other uses. 

CHANGING HEADER BYTES ON ML OB¬ 
JECT FILES: You have a relocatable ML file which 
you assembled on page 6. You now want to move it 
someplace else. The old procedure would be to load 
in the assembler, load in the source file, change the 
origin of the file, re-assemble, save the object code. 
Bah-Humbug to that. With Disk Tool simply call up 
the directory and find the start of the object file. Call 
up that sector and change the header information as 
per Figure 4. Re-write the sector and your file will 
now be loaded at the new address. 

The uses for Disk Tool are left to your imagina¬ 
tion. It’s saved me a lot of time by allowing me direct 
access to the disk sectors and the information on 
them. I’ve patched ML programs directly, added 
code and allocated new sectors for that code, 
changed file names that refused to be changed by 
DOS and recovered many valuable files that were 
crashed. Let your imagination run wild. □ 


Listing 1. 


Hints on using Disk Tool. 

In these modern times, with DOS 2 being avail¬ 
able and all that, it is very rare to come up with link 
errors and crashed files. Some errors occur, how¬ 
ever, when you try to copy DOS 1 files using DOS 2, 
or you may e'en run across an old program by some 
obscure out-of-business company that is loaded with 
crashed sectors (probably why they are out of busi¬ 
ness). Whatever the reason, if you have run into 
Error 164 here is one procedure to follow. 

1. Isolate the file causing the problem. It this 
isn’t obvious, call up the directory and trace each file 
(using the T function) until the culprit is caught. 
Dump the trace to the printer. 

2. Remember the file number. Go to the sector 
previous to the one in error. This is where some 
detective skills will pay off. Examine the sectors 
from your current location to current sector +10, 
noting which file they belong to. You will probably 
find your missing sector within this range. I have not 
failed yet. This usually works on diskettes that have 
not had too much disk activity; i.e., a lot of file dele¬ 
tions and new file saves. If you run into a toughy, 
don’t give up! You WILL find your missing sector. 

3. Once found, note the sector number and the 
next sector number. Manually trace it to verify the 
integrity of the file. 

4. Call up the original sector which had the incor¬ 
rect pointer using the M command. Change the 


10 GRAPHIC S 2*16 
15 ? H6; 1 
1*6 ;■ 

*16; 1 


20 

25 

10 

35 

40 

45 

50 


116 ;■ 
116 ;■ 
1*6 ;* 
116 ; ■ 
116 ;• 


1++ + + + + ++ + + + + + + + + + +B 

+ 

ANALOG 400/80O 


u 

DSKT00L.RU3 

+3 


autorun.sys 

a- 

+. 

■CREATOR PROG.§2 

+4 

+ 

for dosliiBR 

+3 



ate AUTORUN.SYS";? H6;" file" 

60 OPEN ttl,4,0,"K 
65 GET 111,0 

70 CLOSE *11 _ 

75 ? 116;" UJIVHitBHlI 1 ' 

80 OPEN til, 8,0, "D ; 0UT0RI1N . SVS" 

85 PUT 111, 255 : REM HEADER $FF 

90 PUT 111, 255: REM HEADER $FF 

100 PUT HI,0:REM LOAD START L5B $00 

105 PUT til, 6: REM LOAD START MSB $06 

110 PUT 111, 74: REM LOAD END LSB $4A 

115 PUT 111, 6 : REM LOAD END MSB $06 

120 READ A:IF A = 999 THEN GOTO 140 

123 REM ** NOW PUT OUT REST OF PROG ** 

125 PUT ltl,A 

130 GOTO 120 

140 CLOSE m 

160 POSITION 3,1©:? 116;" FILE WRITTEN" 
170 GOTO 170 

1000 DATA 24,173,231,2,105,184,141,231 
,2,173 

1002 DATA 232,2,105,11,141,232,2,169,0 
, 133 

1004 DATA 8,32,27,6,76,0,160,120,173,2 
2 

1006 DATA 2,141,60,6,173,23,2,141,61,6 
1008 DATA 169,52,141,22,2,169,6,141,23 
,2 

1010 DATA 88,96,72,173,14,210,16,4,104 
,76 

1012 DATA 59,6,169,127,141,14,210,165, 
16,141 
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1014 DATA 14,210,104,64,0,226/2 
1016 DATA 227,2,0,6,224,2,225,2,0,6 
1018 DATA 999 

1020 REM IHHHHHHHHHHHHHHHHHt 
1022 REM * END AUTORUN.5YS* 

1024 REM * LOADER PROG * 

1026 REM KKmUHHtKKKKltmHHU H t 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 442,342,782,4,723,347,422,348, 

971,480,388,504,332,40,762,6887 

90 DATA 749,325,357,489,116,197,906,59 

4,698,647,891,725,587,482,235,7918 

1006 DATA 54,497,359,628,586,702,885,7 

89,726,285,801,6312 


Listing 2. 


0005 

0010 

0013 

0020 

0023 

0030 

0033 

0040 

0043 

0030 

0033 

0060 

0063 

0070 

0073 


0083 
0090 
0093 
0100 
0103 
0 1 10 
0113 
0120 


AUTORUN.SYS SOURCE CODE 
FOR D8KT00L UTILITY RV3 
BY! TONY MESSINA 
48 DUDLEY AV'E 
NEWPORT,RI 02040 


THIS FILE RESERVES 3000 
BYTES OF RAM BY MOVING THE 
MEMLO POINTER UP BEFORE 
THE BASIC OR ASSEMBLER CART 
GET9 CONTROL OF THE SYSTEM. 


THIS CODE ALSO DISABLES THE 
BREAK KEY TO PREVENT ANY 
POSSIBLE USER ERRORS FROM 
HAPPENING. 


PROGRAM BASED ON IDEAS 
PRESENTED IN DE RE ATARI 
P89 8-11 l1 8-13 


0380 
0383 
0390 
0393 
0400 
0403 
04 10 
0413 
0420 
0423 
0430 
0433 
0440 
0443 
0430 
0433 
0460 
0463 
0470 
0473 
04 80 
0483 
0490 
0493 
0300 
0303 
0310 
03 13 
0320 
0323 
0530 
0333 
0340 
0343 
0330 
0333 
0360 
0363 
0370 
0373 


I AND RETURN 


| ••• NOW PUT OUR IRQ HANDLER ADDRESS *** 
»**# INTO THE SYSTEM VECTOR LOCATION *«* 
9 

LDA ML,OUR IRQ 
8TA VMIRQ 
LDA MH,OURIRQ 
STA VMIRQt-1 
CLI 
RTS 

|* THIS IS THE ACTUAL IRQ * 

I* SERVICE ROUTINE. ALL WE * 

I* DO 18 CHECK FOR A BREAK * 

»• KEY. IF BREAK IS HIT, WE * 
i* CAUSE THE SYSTEM TO JUST * 

8* IGNORE IT AND THEN RETURN* 

PHA 

LDA IRQST 
BPL T1SBRK 
PLA 

JMP SYS IRQ 


| GET ADDR LO 
| STORE AS SYS VEC 
| GET ADDR HI 
l STORE IT TOO 
| NOW ALLOW 1NTERUPTS 


OUR IRQ 


SY8IRQ 


SAVE A 

WAS THIS A BREAK?? 

YES IT IS!! 

NO SO PULL A 

AND CALL SYSTEM ROUTINE 


TISBRK 


|••• BREAK KEY HIT SO SQUASH *** 
I**• THIS MAMA & STOP DOOM!! *** 
I 

LDA 4»»7F 
STA IRQST 
LDA *POKMSK 
STA IRQEN 
PLA 
RTl 


I WIPE BRK BIT 
I PUT IN STATUS 
I GET POKEY MASK 
I AND STUFF 
I PULL A 

9 AND RETURN FROM INTERUPT 


1* END PROG 

I••*»*«•*••« 


I THE END 


Listing 3. 


0123 

1* EQUATES 

• 




0130 


’••• 




0133 

I 





0140 

MEMLOL 

. DE 

*02E7 

I LO BYTE MEMLO 


0143 

MEMLOH 

. DE 

*02E8 

I HI BYTE MEMLO 


0130 

WARM3T 

. DE 

4000Q 

I WAR8TART FLAG 


0133 

CARVEC 

. DE 

• A000 

» CART START VECTOR 


0 160 

9AVBYT 

. DI 

3000 

9 M OF BYTES TO RESERVE 

0163 

PQKMSK 

. DE 

*0010 

I POKEY IRQ MASK 


0170 

IRQEN 

. DE 

• D20E 

1 IRQ ENABLE BITS 


0173 

IRQST 

. DE 

IRQEN 

I IRQ 3TATUS 


0 180 

VM I RQ 

. DE 

*0216 

1 SYSTEM IRQ VECTOR 


0 183 

9 





0 190 


*** 




0193 

* * CONTROL 

* 




0200 

9•••••••••• 

• •• 




0203 


. BA 

*0600 

I ORIGIN *0600 


0210 


. LS 


1 GIMME LISTING 


0213 


. OS 


1 OBJ CODE TO MEM 


0220 

1 





0223 


*»• 




0230 

9* PROGRAM 

* 




0233 


• »* 




0240 

f«*»» RESERVE 3000 BYTES •«** 



0243 

1 





0230 

ST RES 

CLC 


1 CLEAR FOR ADD 


0233 


LDA 

MEMLOL 

9 GET CURRENT MEMLO 

LO 1 

0260 


ADC 

ML,SAVBYT 

9 ADD 3000 LO 


0263 


STA 

MEMLOL 

t STORE 


0270 


LDA 

MEMLOH 

I GET CURRENT MEMLO 

HI 


182 

::POKE 

1.5 

? 1*6; 

29 

? 1*6; 

25 

7 #6; 

30 

^ 1*6; 

35 

? »6; 

40 

? 1*6; 

45 

? 1*6; 

50 

? 1*6; 

55 

? 1*6; 

60 

GREG= 

65 

POKE 

KE 

755,2 

70 

POKE 


+++++ 4 +++++++++ 



by' 

TONY MESSING 1 


reading Ml 


GREG ** 


GOTO 65 

75 ? tt6;" loading dsktool .utl":RUN "D: 
DSKTOOL.PT2" 

80 DGTG 32,83,228,48,51,173,130,29,288 


,57 


85 DGTG 32,133,29,32,38,30,173,22,30,3 
2 

90 DGTG 15,30,32,175,29,162,0,160,0,18 


95 DGTG 253,3,32,243,29,32,222,29,32,2 

4 


100 DGTG 30,32,178,29,32,31,30,200,192 

/ ^ 

105 DATA 240,17,232,76,25,23,148,126,2 
3,32 

110 DATA 16,32,168,0,140,22,38,104,36, 


142 





f* AOC P2 



0273 


ADC 

MH,SAVBYT 

9 ADD 3000 HI 


0280 


STA 

MEMLOH 

9 STORE IT 


0283 


LDA 

M00 

9 WARMSTART RESET 

0290 


STA 

• WARMS T 

9 STORE 


0293 


J SR 

SWAPEM 

9 DO BREAK KEY 

STUFF 

0300 


JMP 

CARVEC 

9 JUMP THROUGH 

CART 

0303 

5 





03 1 0 

1 *1 





0313 

9 * 

SWAP IRQ VEC 

: ROUTINE » 



0320 

9 * 

TO POINT TO 

OUR OWN * 



0323 

9 * 

ROUTINE. WE 

WILL IG- • 




0330 

0333 

0340 

0343 

0330 

0333 

0360 

0363 

0370 

0373 


9* NORE THE BREAK KEY. 


115 DATA 23,30,138,56,233,7,178,238,23 

120 DATA 183,253,3,32,195,29,142,129,2 
9 32 

125 DATA 57,35,174,129,29,232,236,23,3 
0,288 

130 DATA 235,169,155,32,57,35,174,23,3 
0,224 

135 DATA 128,176,282,32,38,30,32,6,38, 


32 


SWAPEM 


9*** 1ST PUT SYS IRQ IN OUR STUFF 
f 

SEI 

LDA VMIRQ 
STA 9YSIRQ+1 
LDA VMIRQ+l 
STA SYS 1 RQ-»-2 


STOP IRQ'S FOR NOW 
GET SYSTEM IRQ LO ADDR 
MODIFY JMP LO 
GET 8YS IRQ HI ADDR 
MODIFY JMP HI 


148 DGTG 175,29,160,0,174,23,38,76,25, 
29 

145 DGTG 0,0,0,8,0,0,8,162,0,189 
150 DGTG 154,29,240,13,142,127,29,32,5 


7,35 


155 DGTG 174,127,29,232,56,176,238,96, 
125,66 






















VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 83 


168 DATA 

127 

165 DATA 
2 

178 DATA 
15 

175 DATA 
01 

188 DATA 

128.144 
185 DATA 
,4,281 
190 DATA 
173 

195 DATA 

,57 

288 DATA 
285 DATA 

4,32 

216 DATA 
0,24 

215 DATA 

222 

220 DATA 

29 

225 DATA 
69,62 
238 DATA 
04 

235 DATA 
,177,205 
240 DATA 

9.29 

245 DATA 
8,5,200 
250 DATA 
53,3 

255 DATA 

6.29 

266 DATA 
7 

265 DATA 
41,100 
278 DATA 
13 

275 DATA 

32 

280 DATA 
9,253 
285 DATA 
62,8 

298 DATA 

4.11.144 
295 DATA 
280,177 
3O0 DATA 
1,234,31 
305 DATA 
7,205,141 
318 DATA 
141 

315 DATA 
,141 

320 DATA 
,169 

325 DATA 
,240 

330 DATA 
,169 

335 DATA 
,3 

340 DATA 
2 

345 DATA 
, 30 

350 DATA 
44 

355 DATA 

30 

368 DATA 

32 

365 DATA 

78.29 
378 DATA 
,173 

375 DATA 
,43 


89,84,69,35,127,127,72,69,88, 

127,65,84,65,83,67,73,155,0,3 

178,29,169,32,32,57,35,96,41, 

281.10.48.2.105.6.105.48.96.2 
32,144,20,201,125,144,18,201, 
12,201,155,144,10,201,160,144 

253.144.2.169.46.96.32.24.30, 

242,29,32,57,35,173,241,29,32 

35,32,31,30,96,0,0,72,74,74 

74.74.32.184.29.141.242.29.10 

184.29.141.241.29.96.173.22.3 
105,8,141,22,30,32,243,29,32, 
29,96,8,0,142,127,29,140,128, 

96.174.127.29.172.128.29.96.1 

32.57.35.169.36.32.57.35.96.1 

104.133.206.104.133.285.160.2 
32,111,30,170,24,185,8,141,12 
200,208,200,177,205,201,32,20 

177.205.208.3.32.111.30.157.2 
232,236,129,29,144,231,72,76, 
0,56,233,48,201,10,144,2,233, 

96.72.208.177.205.32.101.30.1 
30,104,32,181,30,10,10,10,10, 
100,38,96,76,52,29,32,243,29, 

222.29.96.32.83.228.48.241.16 

133.205.169.3.133.206.168.5.1 
177,205,157,221,31,280,232,22 
245,160,0,177,205,141,236,31, 

205,141,235,31,200,177,205,14 

200.177.205.141.233.31.200.17 
232,31,44,236,31,16,8,169,68, 
237,31,76,254,30,80,37,169,85 
237,31,169,32,44,236,31,248,5 

42.141.239.31.169.2.44.236.31 

8.169.50.141.238.31.76.254.30 

49.141.238.31.32.43.30.173.11 

32.47.35.173.10.3.32.136.30.3 
178,29,162,8,189,221,31,32,24 

32.57.35.32.31.30.232.224.8.1 

239.32.24.38.32.178.29.32.31, 
189,221,31,32,24,30,32,57,35, 

31.38.232.224.11.144.239.32.1 

32.43.30.173.232.31.32.136.30 

233.31.32.136.30.32.178.29.32 


386 DATA 
35,31 
385 DATA 
173 

390 DATA 
2,2 

395 DATA 
32 

480 DATA 
6,236 
405 DATA 
05,242 
410 DATA 

33.205 
415 DATA 

5.32 

420 DATA 
7,35 

425 DATA 
4 

430 DATA 

73 

435 DATA 
43,36 
440 DATA 
268,250 
445 DATA 
450 DATA 
455 DATA 
466 DATA 
465 DATA 
13 

470 DATA 
,122 

475 DATA 
4 

480 DATA 
4,104 
485 DATA 
1,119 
490 DATA 
4,133 
495 DATA 

43.31.32 
560 DATA 
160 

565 DATA 
,208,247 
510 DATA 
141,10 
515 DATA 

177.205 
526 DATA 
,3,76 
525 DATA 
,31,44 
530 DATA 
6,29 

535 DATA 
,111 

540 DATA 
0,76 

545 DATA 

3.32 

556 DATA 
33,173 
555 DATA 
568 DATA 
32,57 
565 DATA 
,16 

570 DATA 
34 

575 DATA 
,243 

586 DATA 
, 246 

585 DATA 
34 

596 DATA 
9,34 

595 DATA 
, 204 

660 DATA 

,43 

605 DATA 


36,173,234,31,32,136,36,173,2 

32,136,30,32,175,29,32,43,30, 

243.31.32.136.30.32.175.29.16 
189,237,31,32,24,38,32,57,35, 

31.30.169.32.157.237.31.202.1 

238.243.31.238.242.31.169.8.2 

31.240.22.165.205.24.105.16.1 

144.2.230.286.169.155.32.57.3 
204,31,76,156,30,169,155,32,5 

173.10.3.24.105.1.141.10.3.14 
3,238,11,3,162,0,142,242,31,1 

241.31.208.17.238.241.31.76.1 

162,11,169,32,157,221,31,202, 

96,206,241,31,76,63,29,0,8,0 
6 , 0 , 0 , 0 , 6 , 6 , 0 , 0 , 0,0 
0,0,32,32,32,32,32,0,8,9 

32.83.228.16.3.76.52.29.32.16 
32,76,63,29,173,132,29,42,42, 

131,29,141,122,4,76,63,29,173 

4,72,41,3,141,131,29,104,74,7 

141,132,29,96,173,254,34,246, 

76.189.32.164.104.141.11.3.14 
35,104,141,16,3,141,118,35,10 

286.104.133.205.104.104.141.2 
83,228,16,3,76,221,34,162,11, 
15,177,265,157,220,31,136,202 
177,205,141,11,3,136,177,265, 
3,136,177,205,141,235,31,136, 
141,234,31,136,173,117,35,240 
252,35,177,265,240,20,141,236 

236,31,16,28,32,212,33,142,12 
32,213,34,76,64,29,162,34,168 

32.159.33.173.243.31.32.136.3 

42.33.162.33.160.232.32.159.3 

212,33,162,33,160,239,32,159, 

11,3,32,47,35,173,10,3,32,136 

30,160,16,140,249,34,169,155, 

35,162,7,142,248,34,32,83,228 

3,76,221,34,32,16,32,238,255, 

208,3,238,0,35,173,132,29,205 

31,208,35,173,123,4,13,131,29 

81,32,199,33,32,1,35,206,248, 

16,210,169,1,141,46,35,206,24 

16.190.141.254.34.76.64.29.32 

31.162.34.160.20.32.159.33.32 

30.173.11.3.32.47.35.173.10.3 
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616 DATA 
9,33 

615 DATA 
9,0 

620 DATA 
5,76 

625 DATA 
8,31 

630 DATA 
,255 

635 DATA 
,159 

640 DATA 
47 

645 DATA 
73,235 
650 DATA 
6,30 

655 DATA 
0,35 

660 DATA 
0,162 
665 DATA 
1,255 
670 DATA 

29 

675 DATA 
,34,140 
680 DATA 
73,250 
685 DATA 

137.29 
690 DATA 

131.29 
695 DATA 
6 

780 DATA 

57 

705 DATA 
9,96 

710 DATA 
715 DATA 
720 DATA 
725 DATA 
730 DATA 
,32 

735 DATA 
740 DATA 
745 DATA 
750 DATA 
755 DATA 
760 DATA 
53 

765 DATA 
770 DATA 
775 DATA 

9 

780 DATA 
785 DATA 
790 DATA 
795 DATA 
800 DATA 
805 DATA 
810 DATA 
815 DATA 
820 DATA 
825 DATA 
160 

830 DATA 

32 

835 DATA 

10 

840 DATA 
76 

845 DATA 
850 DATA 
855 DATA 
5 

860 DATA 
131 

865 DATA 

30 

870 DATA 

9 

875 DATA 

,32 


32.136.30.162.34.160.54.32.15 

169.1.141.126.29.141.46.35.16 
141,255,34,141,254,34,141,0,3 
64,29,173,234,31,77,255,34,20 
173,235,31,77,0,35,208,23,141 
34,141,0,35,162,34,160,134,32 
33,169,155,32,57,35,169,1,76, 

33.162.34.168.139.32.159.33.1 
31,32,136,30,173,234,31,32,13 

162.34.160.165.32.159.33.173, 
32,136,30,173,255,34,32,136,3 
34,160,191,32,159,33,169,0,14 
34,141,0,35,76,42,33,173,136, 
141,250,34,173,137,29,141,251 

136.29.142.137.29.32.133.29.1 
34,141,136,29,173,251,34,141, 

174.252.34.172.253.34.96.173, 
141,11,3,173,123,4,141,10,3,9 
162,0,189,221,31,32,24,30,32, 
35,32,31,30,232,224,11,144,23 

70.73.76.69.58.32.8.32.32.32 

32.32.83.84.65.82.34.32.83.69 

67.84.79.82.58.36.8.32.73.83 
32,68,69,76,69,84,69,68,33,33 
253,253,155,0,155,70,73,76,69 

78.85.77.66.69.82.32.77.73.83 

77.65.84.67.72.32.65.84.32.83 
69,67,84,79,82,27,31,0,155,67 
72,69,67,75,32,80,82,69,86,73 

79.85.83.32.83.69.67.84.79.82 

32.76.73.78.75.83.33.33.253.2 

0,67,65,78,78,79,84,32,82,69 

65,68,32,83,69,67,84,79,82,58 

27,31,36,253,0,155,78,79,32,6 

78,84,82,89,32,70,79,82,32,78 

73,76,69,27,31,36,253,0,32,69 

78,68,0,155,79,82,73,71,73,78 

65.76.32.83.69.67.84.79.82.32 
67,79,85,78,84,27,31,36,0,155 
65,67,84,85,65,76,32,83,69,67 

84.79.82.83.32.76.79.65.68.69 
68,27,31,36,0,155,83,72,79,82 

84.32.70.73.76.69.32.69.82.82 
79,82,33,33,253,155,0,162,34, 

3,32,159,33,96,162,34,160,87, 

159.33.173.11.3.32.47.35.173, 

3,32,136,30,169,155,32,57,35, 

42,33,0,0,0,0,0,0,0,8 

0,32,24,30,173,46,35,240,6,32 

43.30.76.28.35.169.27.32.57.3 

169.31.32.57.35.32.43.30.173, 
29,32,47,35,173,123,4,32,136, 
169,0,141,46,35,96,1,32,243,2 
32,231,29,96,69,58,155,162,64 


880 DATA 86,228,96,162,64,169,12,157,6 
6,3 

885 DATA 32,86,228,162,64,169,3,157,66 
,3 

890 DATA 169,54,157,68,3,169,35,157,69 
,3 

895 DATA 169,8,157,74,3,32,86,228,162, 
64 

900 DATA 169,11,157,66,3,169,0,157,72, 

905 DATA 157,73,3,104,96,0,0,0,0,0 

910 DATA 0,0,0,0,0,0,0,0,0,0 

915 DATA O,0,0,0,0,0,0,0,0,0 

920 DATA 0,0,0,0,0,0,0,0,0,0 

925 DATA 0,0,0,0,0,0,0,0,0,0 

930 DATA 0,0,0,0,0,0,0,0,0,0 

935 DATA 0,0,0,0,0,0,0,0,0,8 

946 DATA 0,0,0,0,0,0,0,0,0,0 

945 DATA 0,0,0,0,0,0,0,0,0,0 

950 DATA 0,0,0,0,0,0,8,0,0,0 

955 DATA 0,0,0,0,0,0,8,0,0,0 

968 DATA 0,0,0,0,O,0,O,0,0,0 

965 DATA 0,0,0,0,0,0,0,0,0,0 

970 DATA 0,0,0,0,0,0,0,0,0,0 

975 DATA 0,0,140,253,34,173,11,3,141,1 

980 DATA 35,173,18,3,141,115,35,162,35 
, 160 

985 DATA 120,142,5,3,140,4,3,162,104,1 
60 

998 DATA 1,140,11,3,142,18,3,32,83,228 
995 DATA 16,13,162,38,160,251,32,159,3 
3,32 

1000 DATA 204,31,76,221,34,32,218,37,1 
72,253 

1085 DATA 34,177,285,208,3,76,144,32,1 
41,236 

1810 DATA 31,44,236,31,16,73,162,38,16 
0,34 

1015^DATA 32,159,33,173,116,35,141,11, 

1020 DATA 115,35,141,10,3,32,83,228,16 

1025 DATA 32,212,33,32,204,31,162,39,1 
60,19 

1830 DATA 32,159,33,76,221,34,32,16,32 
, 238 

1035 DATA 255,34,208,3,238,0,35,173,13 
2,29 

13 4 131 ft ™ 285 ' 243 ' 31 ' 208 ' 27 ' 173 ' 123 ' 4 ' 
1045 DATA 29,240,84,32,199,33,76,89,36 
, 32 

1050^DATA 212,33,162,38,160,68,32,159, 

1055 DATA 42,33,162,34,160,28,32,159,3 
3 32 

1060 DATA 43,38,173,11,3,32,47,35,173, 

1065 DATA 3,32,136,30,169,155,32,57,35 
,162 

1070 DATA 33,160,232,32,159,33,32,212, 

33.162 

1075 DATA 38,160,88,32,159,33,32,284,3 
1,240 

1080 DATA 204,32,212,33,32,284,31,162, 
38,160 

1085 DATA 88,32,159,33,76,103,33,173,2 

1090 DATA 77,255,34,208,232,173,235,31 
, 77,0 

1095 DATA 35,208,224,141,25S,34,141,0, 

35.162 

1100 DATA 38,168,114,32,159,33,173,118 
,35,141 

1105 DATA 18,3,173,119,35,141,11,3,32, 
83 

1110 DATA 228,16,13,162,39,160,38,32,1 
59,33 

1115 DATA 32,204,31,76,42,33,160,8,173 
, 120 

1120 DATA 35,201,2,208,4,169,66,208,2, 
169 

1125 DATA 64,145,205,169,87,141,2,3,32 
, 83 

1130 DATA 228,16,35,32,218,37,32,204,3 

1.162 
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1135 

DATA 

,32 


1140 

DATA 

,39 


1145 

DATA 

,218 


1150 

DATA 

162,38 

1155 

DATA 

,141, 

10 

1160 

DATA 

228 


1165 

DATA 

3,32 


1170 

DATA 

2,16 


1175 

DATA 

,32 


1180 

DATA 

120,142 

1185 

DATA 

2 


1190 

DATA 

1195 

DATA 

27,32 

1200 

DATA 

,218 


1285 

DATA 

32,159 

1210 

DATA 

4,29 


1215 

DATA 

3 


1220 

DATA 

3 


1225 

DATA 

,246 


1230 

DATA 

9,8,56 

1235 

DATA 

05,10 

1240 

DATA 

,286, 

123 

1245 

DATA 

206,124 

1250 

DATA 

45 


1255 

DATA 

2 


1260 

DATA 

3 


1265 

DATA 

2 


1270 

DATA 

9 


1275 

DATA 

65 


1280 

DATA 

9 


1285 

DATA 

53 


1290 

DATA 

4 


1295 

DATA 

,50 


1380 

DATA 

2 


1385 

DATA 

0 


1310 

DATA 

2 


1315 

DATA 

9 


1328 

DATA 

5 


1325 

DATA 

4 


1330 

DATA 

3 


1335 

DATA 

9 


1348 

DATA 

9 


1345 

DATA 

82 


1350 

DATA 


7 


39.168.62.32.159.33.173.11.3 
47,35,173,10,3,32,136,30,162 

160.86.32.159.33.76.42.33.32 
37,162,38,160,152,32,159,33, 

160.174.32.159.33.173.115.35 
3,173,116,35,141,11,3,32,83, 

16.13.162.39.160.19.32.159.3 

204.31.76.221.34.32.234.37.3 

32.173.123.4.13.131.29.240.6 
199,33,76,115,37,162,35,160, 
5,3,140,4,3,162,104,160,1,14 

10.3.140.11.3.169.87.141.2.3 

32.83.228.16.13.162.38.160.2 

159.33.32.218.37.76.42.33.32 
37,32,212,33,162,38,160,204, 

33.32.204.31.142.117.35.76.6 
162,3,160,253,142,5,3,140,4, 
162,82,142,2,3,96,169,0,160, 
78,11,3,110,10,3,106,136,208 
160,5,106,136,208,252,168,16 

106.136.16.252.72.173.18.3.1 

168.104.89.120.35.153.120.35 
35,173,123,35,201,255,208,3, 
35,96,127,80,65,83,83,49,32, 

32.67.72.69.67.75.73.78.71.3 

70.73.76.69.32.67.79.78.68.7 
84,73,79,78,155,0,32,73,83,3 

78.79.84.32.68.69.76.69.84.6 
68,33,33,155,253,0,44,32,67, 

78.78.79.84.32.66.69.32.82.6 

67.79.86.69.82.69.68.33.33.2 
155,0,70,73,76,69,32,73,78,8 
65,67,84,155,127,80,65,83,83 

32.45.32.82.69.67.79.86.69.8 
73,78,71,32,70,73,76,69,155, 

68.73.82.69.67.84.79.82.89.3 

69.78.84.82.89.32.68.79.78.6 
155,0,82,69,65,76,76,79,67,6 

84.73.78.71.32.68.69.76.69.8 

69.68.32.83.69.67.84.79.82.8 
155,0,32,72,65,83,32,66,69,6 

78.32.82.69.67.79.86.69.82.6 
68,33,253,155,0,69,82,82,79, 

32.73.78.32.86.84.79.67.32.8 


1355 

DATA 

69 


1360 

DATA 

4 


1365 

DATA 

3 


1370 

DATA 

69 


1375 

DATA 

53 


1388 

DATA 

2 


1385 

DATA 

2 


1390 

DATA 

69 


1395 

DATA 

4 


1400 

DATA 

1 


1405 

DATA 

• 



82,73,84,69,33,33,253,155,8, 

82.82.79.82.32.73.78.32.86.8 

79,67,32,82,69,65,68,32,33,3 
253,155,0,70,73,76,69,32,82, 

65.68.32.69.82.82.79.82.33.2 
155,0,68,73,82,69,67,84,79,8 

89.32.82.69.65.68.32.69.82.8 
79,82,33,253,155,8,68,73,82, 

67.84.79.82.89.32.87.82.73.8 

69.32.69.82.82.79.82.33.27.3 
253,155,0,0,0,999 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 601,859,577,173,880,415,850,35 
0,194,519,564,841,903,755,385,8866 
85 DATA 282,260,264,536,556,358,379,58 
8,885,892,537,507,433,580,758,7815 
160 DATA 489,349,537,548,888,644,367,4 
44,23,629,624,352,589,908,609,8000 
235 DATA 128,561,845,578,617,261,677,4 
32,564,898,576,144,882,99,938,8200 
310 DATA 357,618,605,607,626,532,321,3 
90,571,519,493,851,600,415,841,8346 
385 DATA 371,405,520,844,677,652,617,6 
09,278,533,853,894,224,256,637,8378 
460 DATA 169,591,579,294,844,885,823,1 
06,379,157,678,908,831,694,564,8502 
535 DATA 588,615,608,668,62,871,436,57 
3,621,597,599,602,695,379,113,8027 
610 DATA 592,419,577,648,578,619,573,7 
22,595,606,865,893,617,898,718,9912 
685 DATA 744,741,285,497,611,301,219,3 
45,283,469,285,240,246,263,298,5827 
760 DATA 677,264,299,389,251,231,264,2 
84,230,275,289,211,232,420,581,4897 
835 DATA 524,546,336.99,383,396,598,34 
1,466,480,643,632,647,271,936,7298 
910 DATA 254,259,257,262,260,265,263,2 
68,266,271,269,274,272,549,633,4622 
985 DATA 535,68,639,595,641,524,747,38 
4,755,539,537,580,418,799,518,8191 
I860 DATA 435,593,594,789,581,882,819, 
688,840,460,797,480,322,360,779,9259 
1135 DATA 332,300,577,631,844,387,546, 
511,335,835,214,15,816,574,639,7476 
1210 DATA 521,199,194,530,640,771,92,8 
38,478,327,339,303,356,485,339,6412 
1285 DATA 590,303,432,322,301,349,369, 
316,353,349,292,354,503,327,550,5710 
1360 DATA 339,311,471,584,326,346,518, 
373,303,82,3653 
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0006 |#••»•••••••••••••»•»«•••••#»• 

0008 |• TH19 FILE IS THE CONTROL 
0010 |* FILE USED TO ASSEMBLE ALL 
0012 |* PARTS OF THE ML PORTION OF 
0014 |» THE DISK TOOL UTILITY. IT 
0016 |* IS EXECUTED BY TYPIN0 THE 
0018 |» ABM "D:DMPUNIV.CTL" 

0020 |* COMMAND FROM THE MAE EDITOR 
0022 |•••••»•••ft•»•••»•ft»•••«•••••»' 

0024 .CT 

0023 .LS 

0026 .FI “D:DMPUNIV.SRC" 


D:DMPUNIV.SRC 


0004 

0006 

0000 

0010 

0012 

0014 

0016 

0018 

0020 

0022 

0024 

0026 


0 026 

|•••••• 






0030 

1 






0032 

DSKVEC 

. DE 

• E433 


1 

READ/WRITE DISK 

0034 

CA8BUF 

. D I 

• 03FD 


1 

128 BYTE BUFFER 

0036 

PERIOD 

. DI 

*2E 


I 

ASCII PERIOD 

0038 

CR 

. DI 

• 9B 


1 

CARRIGE RETURN 

0040 

BP 

. DI 

• 20 


1 

ASCII SPACE 

0042 

CLS 

. DI 

• 7D 


» 

CLEAR SCREEN 

0044 

TAB 

. DI 

• 7F 


1 

TAB SPACE 

0046 

NULL 

. DI 

• 00 


| 

END OF TEXT DELIMETER 

0048 

PAGE0 

. DI 

• 00CD 


1 

PQ 0 WORK LOCATION 

0030 

LOCKED 

. DI 

• 20 


1 

FILE LOCKED MASK 

0032 

DOSMSK 

. DI 

• 02 


1 

DOS 2 MASK 

0034 

DAUX 1 

. DE 

• 030A 




0036 

DAUX2 

. DE 

• 030B 




0038 

ESC 

. DI 

• 00 1 B 


1 

ESC/ESC 3EQ 

0060 

BELL 

. DI 

• FD 


1 

RING BUZZER 

0062 

RAR 

. DI 

• 00 1 F 


1 

RIGHT ARROW 

0064 

1 






0066 







0068 

| * CONTROL * 





0070 







0072 

|» NOTE 

• 





0074 

I* ORG 

D0S2- * 





0076 

I* 41CFC * 


• ft ft 

• • 


0078 

| ft ANY 

OTHER 0R8 WILL REQUIRE 

• 


0080 

1* CHANGES TO THE BASIC PART 

• 


0082 

|# OF THIS UTILITY..BEWARE 

! ! ! 

! • 


0084 

» * RUN 

ONLY UNDER UNMODIFIED 

» 


0086 

|* DOS 2 

(I.E. DQS2 THAT DOES 

• 


0088 

1 * NOT 

SAVE SPACE BY DROPPING 

• 


0090 

f* NON- 

EXISTING DRIVES'!• 


• 


0092 




ft •» 

• • 


0094 

1 






0096 


. PR 

“ORIGIN OF 

ME X DMP“ 

| ASK ORG 

0098 

ASTART 

. IN 

ASTART 


1 

USER INPUT 

0 1 00 


. BA 

ASTART 


» 

ASSIGN ORG 

0102 


. OS 



1 

STORE OBJ CODE IN MEM 

0104 


. MC 

• A900 


1 

BUT PUT AT *A900 

0 106 


. PR 

“ORIGIN AT 

INPUT" 


0108 


. PR 

“OBJ STORE 

AT 

• A900 “ 

0110 

| 






0112 

|••••»• 






01 14 

I * PROGRAM ft 





0116 







01 18 

I 






0120 

8T ART 

J SR 

DSKVEC 


1 

DO READ OP WRITE 

0122 


BMI 

DERR 


1 

IF ERROR BRANCH 

0124 


L DA 

WFLAQ 


1 

WAS IT A WRITE? 

0126 


BNE 

EXIT2 


1 

YE8..KEEP DISPLAY• 

0128 

ME9AGE 

J3R 

MSG 


1 

PUT UP HEADER 

0130 


J SR 

PREFIX 


I 

PUT UP >• 

0132 


L DA 

LOADR 


1 

GET LOADR 

0134 


J SR 

AROUND 


1 

PUT UP 00 

0136 


J SR 

8PACE7 


1 

2 SPACES 

0 13B 

»*** SECTOR IS 

IN, HEADER 

UP, 

DUMP HEX **• 

0140 

1 






0142 


LDX 

• 0 


1 

BYTE COUNTER 

0144 


LDY 

• 0 


1 

COUNT 8 HEX BYTES 

0146 

D8PHEX 

L D A 

CASBUF,X 


I 

GET A BYTE 

0148 


J SR 

CONVERT 


I 

BREAK INTO NYBLE8 

0130 


J 8R 

DI3PLY 


1 

AND DISPLAY 

0132 


J8R 

9AVXY 


I 

SAVE XVY REGS 

0134 


J SR 

SPACE 1 


1 

NOW SP l 

0136 


JBR 

RES X Y 


1 

RESTORE XVY REGS 

0138 


INY 



1 

INC COUNT 

0 160 


CP Y 

• 8 


1 

TIME TO DUMP ASCII?? 

0 162 


BEQ 

DMPASC 


1 

YES..GO DO IT 

0164 


INX 



1 

NO..INC BYTE COUNT 

0166 


JMP 

D8PHEX 


1 

NO..NEXT?? 

0168 

1 






0 1 70 



• 




0172 

I • D8K 

ERRORS 

* 




0174 





0176 

1 






0178 

DERR 

8TY 

ERRFLB 


1 

INFORM BASIC OF ERROR 

0 180 

EX I T 

J SR 

WEIRD 


1 

BREAK UP WEIRD BYTE 

0102 


LDY 

• 0 


I 

ZERO Y 

0184 


STY 

LOADR 


1 

ZERO LOADR 

0186 

EXIT2 

PLA 



1 

CLEAN UP STACK 

0188 


RTS 



1 

AND RETURN TO BASIC 

0 190 

1 






0192 



* 




0 194 

1* ASCII DUMP 

• 




0196 



• 





0 198 | 


* * D3KT00L MLL1ST 


* * 8 AU0 1981 

* *REV6 13 JUL 1983 

* * TONY MESSINA 

* * 48 DUDLEY AVE 

* * NEWPORT,RI 

* * 02840 


* EQUATES * 


0200 DMPASC 

9TX HIADR 

| SAVE COUNT 

0202 

T X A 

1 GET THIS COUNT 

0204 

SEC 


0206 

SBC • 7 

1 SET 9T ART FOR DUMP 

0208 

TAX 

» PUT IN X 

0210 

INC HI ADR 

| INC FOR COMPARE 

0212 GETIT 

L DA CASBUF,X 

» GET WHOLE BYTE 

0214 

J SR CKDOOM 

I STOP TROUBLE 

.0216 

ST X CHRCNT 

| 3AVE T Hl8 COUNT 

0218 

J SR PUTCHR 

S CHARACTER TO SCREEN 

0220 

LDX CHRCNT 

I RESTORE X 

0222 

INX 

I AND INCREMENT 

0224 

CPX HI ADR 

| LIMIT REACHED? 

0226 

BNE GETIT 

1 NO..NEXT CHAR 

0228 

L DA #CR 

1 YE8..90 

0230 

J8R PUTCHR 

» SKIP A LINE 

0232 

LDX HI ADR 

I CK LIMITS 

0234 

CPX #128 

I DONE SECTOR? 

0236 

BC3 EXIT 

1 YES..GOODBYE 

0238 

J8R PREFIX 

I PUT UP >0 

0240 

J SR UPDATE 

1 UPDATE BYTE CNT 

0242 

J SR SPACE 2 

I SKIP 2 8PACE9 

0244 

LDY #0 

» ZERO Y COUNTER 

0246 

LDX HIADR 

1 BET OLD X COUNT 

0240 

JMP DSPHEX 

1 AND GET MO STUFF 

0230 | 






0234 »* VARIABLES * 





0238 | 



0260 ERRFLG 

. DS 1 

| ERROR FLAG 

0262 SAVEX 

. DS l 

| X SAVE 

0264 3AVEY 

. DS l 

» Y SAVE 

0266 CHRCNT 

. D3 l 

1 8 T OREAGE 

0268 WFLAG 

. DS 1 

1 WRITE FLAG 

0270 TOPSEC 

. DS l 


0272 FILNUM 

. D8 1 


0274 1 






027G |» SUBROUTINES* 


0200 !••••••»•• 



0282 | 



0284 1*** WRITE 

HEADER *** 


0286 |*** SUBROUTINE **• 


0288 | 



0290 MSB 

LDX #0 

1 START AT ZERO 

0292 DISMSG 

LDA HEADER,X 

I GET BYTE 

0294 

BEQ ENDM8G 

I IF ZERO SCRAM 

0296 

STX SAVEX 

» SAVEX 

0298 

J SR PUTCHR 

I DISPLAY CHAR 

0300 

LDX SAVEX 

1 RESTORE X 

0302 

INX 

1 ADD 1 

0304 

SEC 


0306 

BC9 DISMSB 

I ALWAYS BRANCH!! 

0308 ENDM9Q 

RTS 

1 ADI OS * 1 

0310 HEADER 

.BY CLS 'BYTE#* 


0312 

.BY TAB TAB 'HEX* 

TAB TAB 'ATASC I ’ CR NULL 

0316 I*** WRITE 

SPACES •** 


0318 |*»* SUBROUTINE • ** 


0320 | 



0322 8PACE2 

J SR SPACE 1 

1 GO HERE FOR 2 SPACES 

0324 8PACE1 

LDA #8P 

1 LOAD A 9PACE 

0326 

J SR PUTCHR 

1 AND DISPLAY 

0328 

RT8 

1 THEN RETURN 

0330 I 



0332 | • • • CONVERT ASCI *** 


0334 »•** SUBROUTINE • •* 


0 336 I 



0338 CONASC 

AND #*0F 

1 CLEAR TOP NYBLE 

0340 

CMP # *0A 

I IS A REG >9?? 

0342 

BMI L T9 

1 NO..ONLY ADD »30 

0344 

ADC #6 

1 YES.ADD 6 

0346 LT9 

ADC ##30 

I ADD *30 

0348 

RTS 

1 AND RETURN 

0330 | 



0332 »*** CHECK 

GARBAGE **• 


0334 I * • * SUBROUTINE *** 


0 336 | 



0338 CK DOOM 

CMP ##20 

1 A < SPACE* 7 

0360 

BCC 8UBPER 

1 YES SUB PERIOD 

0362 

CMP #*7D 

» NO < 7D77 

0364 

BCC OUT 

I YES PRINT 

0366 

CMP #*80 

1 NO..HOW ABOUT <*80 

0368 

BCC SUBPFR 

1 YES..SUB PERIOD 

0370 

CMP #CR 

1 < *9B ?? 

0372 

BCC OUT 

» YES..SCRAM 

0374 

CMP #»A0 

I NO. .< •A07 ? 

0376 

BCC SUBPFR 

1 YE8..SUB PERIOD 

0378 

CMP #»FD 

1 N0..HOW BOUT »FD 

0380 

BCC OUT 

1 YES..ELSE 

0302 8UBPER 

LDA #PERIOD 

1 LOAD A PERIOD 

0384 OUT 

RT8 

1 THEN RETURN 

0 386 | 



0308 !»•* DISPLAY HEX BYTES • ** 


0390 |«»ft SUBROUTINE **• 


0392 | 



0394 DI9PLY 

J SR 3AVXY 

1 SAVE XV Y REGS 

0396 

LDA HIHEX 

1 GET HI BYTE 

0398 

J SR PUTCHR 

1 PUT ON SCREEN 

0400 ONEBYE 

LDA LOHEX 

» GET LO BYTE 

0402 

J3R PUTCHR 

1 AND DI9PLAY IT TOO 

0404 

J SR RES X Y 

* RESTORE XVY REGS 

0406 

RTS 

1 THEN RETURN 

0408 LOHEX 

. DS 1 

1 LO HEX STORE 

0410 HIHEX 

. DS 1 

I HI HEX STORE 

0412 | 



0414 |*** CONVERT BIN BYTE TO 2 HEX DIGITS *** 

0416 |*** 

SUBROUTINE *** 


04 18 | 



0420 CONVERT 

PHA 

1 1ST 8AVE A 

0422 

l. SR A 

| EXTRACT 

0424 

L SR A 

| TOP NYBLE 

0426 

L.9R A 

I AND SHIFT TO 

0420 

L SR A 

1 BOTTOM NYBLE 

0430 

J SR CONASC 

1 CONVERT BIN TO A9CII 

0432 

STA HIHEX 

1 STORE IT 
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0434 


PLA 


I GET ORIGINAL BYTE 

0720 


LDA 

• • U 

I USED LOAD *U* 

0436 


J SR 

CONA9C 

p CONVERT IT 

0722 


8TA 

FIL3TA+1 

I STUF 

0438 


STA 

LOHEX 

1 8T0RE IT 

0724 

CKLOC.K 

LDA 

•LOCKED 

1 LOCK MASK 

0440 


RTS 


I AND RETURN 

0726 


BIT 

FIL3TA 

1 19 IT? 

0442 

1 




0728 


BEQ 

CKDOS 

I NO CK DOS 

0444 

1*#* UPDATE BYTE COUNT *»* 


0730 


LDA 

• ' * 

t YES. LOAD **’ 

0446 

p *** 

SUBROUTINE *** 


0732 


STA 

FILST A + 3 

1 STUF 

0448 

1 




0734 

CKDOS 

LDA 

•DQ9MSK 

1 DOS MASK 

0430 

UPDATE 

LDA 

LOADR 

1 GET LO BYTE 

0736 


BIT 

FILSTA 

1 DQS2? 

0432 


CL C 


1 CLEAR CARRY 

0738 


BEQ 

DOS 1 

1 NO DOS 1 

0434 


ADC 

• •08 

1 ADD 8 

0740 


LDA 

• ’ 2 

1 YES LOAD 2 

0436 


STA 

LOADR 

I STORE AWAY 

0742 


STA 

FILSTA+2 

I STUF 

0438 

AROUND 

J SR 

CONVERT 

1 CONVERT IT 

0744 


JMP 

OUTFIL 

1 AND OUT 

0460 


J SR 

DISPLY 

I AND DISPLAY 

0746 

DOS l 

LDA 

• • 1 

1 LOAD 1 

0462 


RTS 


1 THEN RETURN 

0748 


STA 

FIL8TA+2 

| AND STUF 

0464 

LOADR 

. DS 

1 

» BYTE COUNT LO 

0730 

!**• FILE 

FORMATTED..DUMP IT 


0466 

HI ADR 

. DS 

1 

| BYTE COUNT HI 

0732 

OUTFIL 

J SR 

JUSHEX 

1 PUT UP A • 

0468 

1 




0734 


LDA 

DAUX2 

* GET SEC HI 

0470 

1 




0736 

PUT9EC 

J8R 

DOONE 

I DISPLAY LO NYBL.E 

0472 

?•*• SAVE XI.Y 

REGISTERS *** 


0738 


LDA 

DAUX 1 

1 DSK 9EC LO 

0474 

1 *** 

SUBROUTINE *** 


0760 


J SR 

DOBOTH 

I DISPLAY 

0476 

1 




0762 


J SR 

SPACE 1 

I SKIP SPACE 

0478 

SAVXY 

STX 

SAVE X 


0764 


LDX 

• 0 

1 SET INDEX 

0480 


STY 

SAVEY 


0766 

DISPFL 

LDA 

NAMBUF.X 

P BET LTR 

0482 


RTS 



0768 


J SR 

SAVXY 

1 8AVE ID X’9 

04Q4 

RES X Y 

LDX 

SAVEX 


0770 


J SR 

PUTCHR 

» PUT ON 8CRN 

0496 


LDY 

SAVEY 


0772 


J BR 

RE 9 X Y 

p REST ORE X/Y 

0488 


RTS 



0774 


I N X 



0490 

1 




0776 


CPX 

•8 

P DONE NAME? 

049? 

!»•« PREFIX BY 

TES WITH >0 *** 


0778 


BCC 

DI8PFL 

P NO.GET MO 

0494 

1 #** 

SUBROUTINE #*• 


0700 


J BR 

8AVXY 

p 9AVE XfcY 

0496 

1 




0782 


J SR 

SPACE 1 

P 1 SPACE 

0498 

PREFIX 

LDA 

• • > 

1 LOAD A CARAT 

0794 


J8R 

RE8XY 

P RESTORE XtY 

0300 


J SR 

PUTCHR 

1 DISPLAY IT 

0786 

DOEXT 

LDA 

NAMBUF,X 

P BET EXTENSION 

0302 

.1UBHEX 

LDA 

• ’ • 

1 LOAD HEX DESIGNATOR 

0788 


J SR 

SAVXY 

P SAVE EM 

0304 


J SR 

PUTCHR 

1 DISPLAY IT 

0790 


J8R 

PUTCHR 

p DISPLAY 

0306 


RTS 


I RETURN 

0792 


J SR 

RE9XY 

1 RESTORE 

0308 

l 




0794 


I NX 


p INC COUNT 

0510 

'«•« ML 

CHANGE 

BYTE ROUTINE *** 


0796 


CPX 

• 1 1 

p GOT EXTENSION? 

0312 

1*** BASIC ENTERB HERE **• 


0798 


BCC 

DOEXT 

p NO..GET ALL 

03 1 4 

CHNGBY 

PLA 


1 PULL OFF • VARS PASSED 

0800 


J8R 

SPACE 1 

P PUT UP 8P 

0316 


PLA 


P PULL OFF HI ADR 

0802 


J BR 

JUSHEX 

P AND • 

03 18 


STA 

• PABE0-M 

i STUFF IT 

0804 


LDA 

STASEC 

p LOAD 9T ART 

0320 


PLA 


1 NE XT?'’ 

0806 

PUTSTA 

J9R 

DOBOTH 

P TO HEX 

0572 


STA 

*PAGE0 

I STUFF IT 

0808 


LDA 

STASEC+1 

P START LO 

0324 

INDEX 

LDY 

• 2 

1 SKIP >0 



JQR 

DOBOTH 

p DISPLAY 

0326 


LDA 

(PAGE0 > ,Y 

1 HI HEX 

0812 


J SR 

SPACE 1 

P SKIP 3 

0328 


J SR 

MAKRIN 

1 HEX ASCI TO BIN BYTE 

0814 


J SR 

JUSHEX 

p PUT UP * 

0330 


TAX 


1 SAVE START INDEX 

0816 


LDA 

FILEN 

P FILE LEN HI 

053? 


CLC 



0818 

PUTLEN 

J SR 

DOBOTH 

1 DISPLAY 

0334 


ADC 

• •8 

1 GET MAX COUNT 

0820 


LDA 

FILEN+1 

P FILE LEN LO 

0336 


STA 

CHRCNT 

I STORE IT 

0822 


J9R 

DOBOTH 

P DISPLAY 

0538 


INY 



0824 


J SR 

8PACE2 

P SKIP 3 

0340 

HX2BIN 

INY 


» SKIP TO 

0826 


J SR 

JUSHEX 

P PUT UP • 

0342 


I NY 


1 NXT USEABL BYTE 

0828 


LDA 

FI NUMB 

« FILE NUMBER 

0344 


LDA 

< PAGE0 > ,Y 

1 HI CHAR 

0830 


J SR 

DOBOTH 

P DISPLAY 

0346 


CMP 

• 9P 

P IS IT SPACE'? 

0832 


J SR 

9PACE2 

P SKIP 2 

0548 


BNE 

NOT ASC 

1 NO..HEX 

0834 

P9TATU 

LDX 

• 2 

P CNT 2 

0330 


INY 



0666 

GETNAM 

LDA 

< PAGE0) ,Y 

P GET CHAR 

0332 


LDA 

(PAGE0).Y 

1 IN A 

0668 


STA 

NAMBUF,X 

1 STUFF 

0334 


BNE 

STUFIT 

1 AND STORE DIRECTLY 

0670 


INY 


P INC THE 

0336 

NOT ASC 

J SR 

MAKBIN 

» HEX ASCII TO BIN BYTE 

0672 


I NX 


1 COUNTERS 

0338 

STUTIT 

8 T A 

CASBUF X 

1 STUFF IN BUFFER 

0674 


CPX 

• 1 1 


0360 


I N X 



0676 


BCC 

GETNAM 

p NO.GET MORE 

0362 


CPX 

CHRCNT 

1 DONE 0 BYTES 

067 B 


LDY 

• 0 

P YES 

0364 


BCC 

HX2BIN 

1 NO.GET NXT 

0680 

GET8TA 

LDA 

(PA8E0),Y 

P GET STATU9 BYTE 

0366 


PHA 


1 PUSH FOR EXIT 

0682 


STA 

FILBTA 

P STORE 

0368 


JMP 

ME9A3E 

I PUT UP NEW SCREEN 

0684 


INY 


p NEXT BYTE 

0370 

TEMP 

. DS 

1 

1 LO BIN VAL STORE 

0686 

9ETLEN 

LDA 

(PA8E0),Y 

P LEN LO 

0372 

!#** ABC I HEX TO BIN • ** 


0688 


STA 

FILEN +1 

1 STORE 

0374 

I*** SUBROUTINE *** 


0690 


INY 



0376 

1 




0692 


LDA 

(PA8E0),Y 

1 LEN HI 

0378 

A92BIN 

SEC 


1 SUBTRACT 

0694 


STA 

FILEN 

« STORE 

0380 


SBC 

• '0 

1 ASCII 0 

0696 


INY 



0382 


CMP 

• 10 

P A<10? 

0698 

FI9TAR 

LDA 

(PA8E0),Y 

P BET FI START 

0384 


BCC 

A8BINI 

I YES JMP 

0700 


STA 

STASEC+1 

P STUF 

0386 


SBC 

• 7 

1 ELSE SUB 7 MORE 

0702 


INY 



0388 

A3BIN1 

RTS 


1 AND RETURN 

0704 


LDA 

(PA8E0 > ,Y 

p START HI 

0390 

1 




0706 


STA 

STASEC 

p STUF 

0392 





0708 

CK ST A 

BIT 

FILSTA 

« ENTRY DELETED? 

0394 

1* CONVERT 2 ASCII HEX DIBITS * 


0710 


BPL 

CKU3ED 

P NO. CK IF USED 

0396 

1 * TO A 

BINARY 

•. THE HI DIGIT * 


0712 


LDA 

• ' D 

P DELETED LOAD *D' 

0398 

1* COMES 

IN THE A REG. THE LO * 


0714 


9TA 

F IL8TA+1 

P STUF 

0600 

p * DIGIT 

IS EXTRACTED FROM THE * 


0716 


JMP 

OUTFIL 

P THEN OUT 

060? 

I * PAGE 

0 PTR 

Y REG. ROUTINE * 


0710 

CKU9ED 

B VC 

OUTFIL 

P IF NOT USED, OUT 

0604 

P* EXITS 

WITH BIN NUMBER IN A * 


0836 

PUTLTR 

LDA 

FIL9TA+1,X 

P PUT UP STATUS 

0606 





0038 


J SR 

SAVXY 

P BAVE XtY 

0608 





0840 


J SR 

PUTCHR 

I PUT UP ASCII 

06 1 0 

MAKBIN 

PHA 


1 SAVE HI HEX DIGIT 

0842 


J8R 

RES X Y 

! RE9TORE XfcY 

0612 


INY 



0844 


LDA 

• 9P 

P LOAD SPACE 

06 1 4 


LDA 

(PAGE0),Y 

1 GET LO HEX DIG 

0846 


STA 

FILST A*1,X 

P CLEAR THIS STATUS 

0616 


J8R 

A92BIN 

I CONVERT 

0840 


DEX 


P DECREMENT COUNT 

0618 


STA 

TEMP 

I STORE 

0830 


BPL 

PUTLTR 

P BRANCH TILL DONE 

0620 


PLA 


» GET BACK HI 

0832 


INC 

FINUMB 

P INC FILE NUMBER 

0622 


J SR 

AS2B I N 

1 CONVERT 

0834 


INC 

9ECMAX 

P AND FILES/8ECTOR CNT 

0624 


ASL 

A 

1 SHIFT 

0036 


LDA 

• 8 

1 CLEAR OLD FILE ITEMS 

0626 


A8L 

A 

1 IT 

0838 


CMP 

9ECMAX 

P DONE 8 FILES? 

0628 


ASL 

A 

I UP 

0860 


BEQ 

NXT SEC 

P YEB-0ET NEXT 8ECT0R 

0630 


ASL 

A 

I TOP 

0862 


LDA 

•PAOE0 

P ELSE INC BUFFER POINTER 

0632 


ORA 

TEMP 

1 OR IN LO BYTE 



CLC 


P SO THAT WE 

063 4 


RTS 


I RETURN WITH BIN IN A 

0866 


ADC 

• 16 

P SKIP 16 BYTES 

0636 

DIRECTORY 

DUMP STARTS HERE 

*** 

0868 


STA 

•PA8E0 

P STORE NEW POINTER LOW 

0638 

J PONT 

JMP 

DERR 

( LONG BRANCH 

087 0 


BCC 

NOHIBY 

P JUMP IF NO CARRY 

0640 

DOBOTH 

J SR 

CONVERT 

1 CON VAL IN A TO HEX 

0872 


INC 

• PAGE0-M 

P EL9E INC HI PART OF POIN 

0642 


J SR 

DISPLY 

1 AND DISPLAY 

0874 

NOHIBY 

LDA 

• CR 

I LOAD RETURN 

0644 


RTS 



0876 


J8R 

PUTCHR 

P DO IT 

0646 

1 




0878 


J SR 

CLRNAM 

P CLEAR NAME BUFFER 

0648 

REDIR 

J SR 

D3KVEC 

I READ SECTOR 

0880 


JMP 

FILOOP 

P * GET NXT FILE INFO 

0630 


BMI 

J PONT 

1 JUMP LONG ON ERROR 

0882 

NXT8EC 

LDA 

• CR 

P EXECUTE A 

0632 


LDA 

•L,CASBUF 

1 LO BUF START 

0884 


J SR 

PUTCHR 

P LINE FEED 

0634 


STA 

• PAGE 0 

1 STUFF 

0886 


LDA 

DAUX 1 

p INC DSK IOCB 

0636 


LDA 

•H,CASBUF 

P HI START 

0888 


CLC 


| TO READ THE NEXT 

0638 


STA 

• PAGE 0+1 

I STUFF 

0890 


ADC 

• 1 

P SECTOR 

0660 

FILOOP 

LDY 

• 3 

I NAME START 

0892 


STA 

DAUX 1 

P THEN STORE 

0662 


LDX 

• 0 

» BUF INDEX 

0894 


BCC 

NOFLIP 

P INC HI 

0664 

1 * *• NOW 

GFT FILE NAME *** 


0896 


INC 

DAUX2 

P IF NEEDED 
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0898 

NOFLIP 

LDX 

• 0 

| 

CLEAR FILE CNT 

0900 


9TX 

SECMAX 



0902 


LDA 

TOGGLE 

1 

DONE 2 SECTORS? 

0904 


BNE 

CLENUP 

| 

YES CLEAN UP OUR ACT 

0906 


INC 

TOGGLE 

| 

NO..SET FOR NEXT TIME T 

0908 


JMP 

REDIR 

y 

AND GO READ NEXT SECTOR 

09 10 

1••«••••«• 





0912 

|* CLEAR NAME BUFFER * 



0914 

|« SUBROUTINE * 



0916 

1•*»•«•»*• 

• •••i 




0910 

CLRNAM 

LDX 

« 1 1 

y 

1 1 CHARACTERS 

0920 


LDA 

«9P 

y 

ONE SPACE 

0922 

CLRSPA 

9TA 

NAMBUF,X 

y 

CLEAR IT 

0924 


DEX 


y 

GET EVERYTHING* 1 

0926 


BNE 

CLRSPA 

y 

TILL DONE 

0928 


RTS 


y 

THEN RETURN 

0930 


»***» 




0932 

I< DIRECTORY DUMP * 



0934 

|* EXITS 

HERE • 



0936 


***#1 




0938 

CLENUP 

DEC 

TOGGLE 

y 

CLEAR TOGGLE LOCATION 

0940 


.IMP 

EX IT2 

y 

AND THEN JUMP BACK TO B 

0942 

1********* 

** **i 

»*•** 



0944 

I* DIRECTORY DATA * 



0946 


***»! 




0948 

NAMBUF 

. DS 

1 1 

y 

FILE NAME BUF 

0930 

STASEC 

. DS 

2 

i 

START SEC HI/LO 

093? 

F1LEN 

. DS 

2 

y 

FILE LEN HI/LO 

0934 

FILSTA 

. BY 

32 32 32 32 32 » 

FILE STATUS 

0936 

TQQQLE 

. DS 

1 

, 

INFAMOUS TOGGl.ER 

0938 

SECMAX 

. DS 

1 

y 

FILE COUNTER 

0960 

FINUMB 

. DS 

l 

y 

THIS FILE # 

0962 

» **•••**•* 

**** i 

• ••• 



0020 


.FI 

“D:DMPUNIV2.SRC" 



1002 

1««»••««*• 

• i 




1004 

|* CHANGE 

SECTOR LINKS * 



1006 

|«««•«•«*• 

* *««M 




1 008 

ENTLNK 

J8R 

DSKVEC 

y 

READ SECTOR 

1010 


BPL 

CHQLNK 

» 

JMP GOOD READ 

1012 


JMP 

DERR 

y 

ELBE ERROR 

1014 

CH0LNK 

J SR 

WEIRD 

y 

BREAK UP FlfcSECTOR 

1016 


JMP 

EX IT2 

i 

AND RETURN 

1010 

NEWLNK 

LDA 

FILNUM 

y 

GET NEW FILE 

1 020 


ROL 

A 

y 

ROLL IT 2 

1022 


ROL 

A 

y 

BIT 8 LEFT 

1024 


ORA 

TOP0EC 

y 

OR IN HI 8ECT0R 

1 026 


ST A 

CASBUF♦123 

y 

STUFF BACK 

1 028 


JMP 

EXIT2 

y 

AND RETURN 

1 030 






1 032 

1* EXTRACT 

HI/LO * 



1034 

f* NEXT 8ECT0R * 



1 036 

y* SUBROUTINE 

• 



1038 

S« THIS AVOIDS 

A « 



1040 

1* HORRENDOUS BU8* 



1 042 

I* OF TYING UP 

• 



1 044 

1* THE STACK (AT * 



1 046 

|« LEAST I 

HOPE) • 



1 040 



• f« 



1 030 

1 





1032 

WEIRD 

LDA 

CASBUF ■*123 


GET WEIRDO 

1034 


PHA 



STUFF AWAY 

1036 


AND 

#•03 


MASK OFF BITS 2-7 

1038 


8T A 

T0P8EC 


STUFF HI BY 

1060 


PLA 



GET STUFFED BYTE 

1062 


LBR 

A 


RIGHT JUSTIFY 

1064 


L8R 

A 


FILE NUMBER 

1066 


9 T A 

FILNUM 


STUFF IT 

1068 


RTS 



80 HOME 

1 070 

***** TRACE SECT0R3 ENTER8 HERE 

c- 

• ** 

1 072 

TRASEC 

LDA 

CONTIN 


FIRST TIME? 

1 074 


BEO 

NOCON 


YES..DO PULL9 

1076 


PLA 



JUBT PULL VAR PASSED 

1 078 


JMP 

SETY 


NO. .NO PULI.9 

1 080 

NOCON 

PL A 



PULL OUT VAR CNT 

1082 


PLA 



PULL START HI 

1 084 


3 T A 

DAUX2 


STORE FOR READ 

1 086 


8 T A 

DINUMH 


STO FOR RECOV 

1 080 


PLA 



GET START 1.0 

1090 


STA 

DAUX J 


STORF FOR RFAD 

1 092 


ST A 

DINUMl 


STO FOR RECOV 

1 094 


PLA 



INDEX HI 

1 096 


STA 

• PAGE 0-*1 


STORE 

1 090 


PLA 



INDEX LO 

1 1 00 


STA 

•PAGF0 


STORE 

1 102 


PLA 



FILE# HI 

1 1 04 


PLA 



FILE# LO 

1 1 06 


STA 

F INUMB 


STORE IT 

1 108 


J SR 

DSKVEC 


READ SECTOR 

1110 


BFL 

NOERR 


BRANCE NO ERROR 

1112 

ERRTRP 

JMP 

RDERR 


ERROR..JUMP 

1114 

NOERR 

LDX 

« 1 1 


NAME COUNT 

1116 


LDY 

#13 


INDEX CNT 

1118 

LOADIT 

LDA 

( PAGE 0 ) ,Y 


GET LETTER 

1 120 


STA 

NAMBUF-1,X 


STUFF IT I 

1 1 22 


DEY 



DEC Y 

1 1 24 


DEX 



AND X 

l 1 26 


BNE 

LOADIT 


GET MORE 

1 1 28 


LDA 

< PAGE 0 ) ,Y 


BET START LO 

1 1 30 


9TA 

DAUX 2 


STUFF 

1 132 


DEY 




1 134 


LDA 

(PAGE0),Y 


GET LO 

1 136 


STA 

DAUX 1 


8TUF 

1 1 38 


DEY 




1 1 40 


LDA 

(PAGF.0) . Y 


GET FI LFN HI 

1 14? 


STA 

F Il.F.Nf 1 


SAVE FOR CK8 

1 144 


DEY 




1 1 46 


LDA 

(PAOE0).Y 


FI LEN LO 

1 148 


STA 

F1LEN 


8AVE IT TOO 

1 1 30 


DEY 




1 132 


LDA 

RECOVR 


ARE WE DOING RECOV FIL? 

1 134 


BEO 

STC.'HK 


NO..CHECK STATUS 

1 1 36 


JMP 

DOREC 


YES. .DO RECOVER * 

1 1 38 

9TCHK 

LDA 

(PAGF0),Y 


OFT STATUS 

1 1 60 


BEQ 

NOF.NT 


IF ZERO, NO ENTRY 

1 16? 


STA 

FILSTA 


STORE IT 


1 1 64 


BIT 

FILSTA 

y FILE DELETED?? 

1 166 


BPL 

IT9U9D 

y NO..ITS USED!• 

1 1 68 


J3R 

DISNAM 

y YES..PUT NAME 

1 1 70 


ST X 

ERRFL8 

y NOTE ERROR 

1172 


J8R 

DELETE 

y PUT DEL MSB 

l 1 74 


JMP 

EX1T2+1 

y AND 8CRAM 

1 1 76 

NOENT 

LDX 

•H,NOMSG 

y MSS ADDR 

l 178 


LDY 

•L,NOMSG 


1 180 


J SR 

FL IPIT 

y DI8PLAY MSB 

1 182 


LDA 

FINUMB 

y FILE NUMBER 

1 1 84 


J9R 

DOBOTH 

y DISPLAY 

1186 


JMP 

COMMEX 

y COMMON ERROR EXIT 

1 188 

|*** * FILE USED PUT UP NAME ETC **** 

1 1 90 

IT9USD 

LDX 

#H,NAME 

y MSS ADDR 

1 192 


LDY 

#L,NAME 

y HI/LO 

1 194 


J SR 

FLIPIT 

y DISPLAY 

1 196 


J SR 

DISNAM 

y PUT UP NAME 

1 198 


LDX 

•H,SECMSG 

y MS8 ADDR 

1 200 


LDY 

#L,SECMSG 


1 202 


J SR 

FLIPIT 

y FLIP MSGS 

1204 


LDA 

DAUX 2 

y GET TRUE 9TART SECTOR 

1 206 


J SR 

DOONE 

y DISP HEX 

1 208 


LDA 

DAUX 1 

1 GET LO 

1210 


J8R 

DOBOTH 

y DISPLAY TOO 

1212 

SETY 

LDY 

#16 

y DO 17 LINES 

1214 


STY 

YCNT 

y SAVE CNT 

1216 

DORETN 

LDA 

• CR 

y CARR RET 

l 2 1 B 


J SR 

PUTCHR 

y DISPLAY 

1220 


LDX 

#7 

y B SECTORS/LINE 

1 222 


ST X 

XCNT 

1 SAVE IT 

1224 

DOREAD 

JBR 

D3KVEC 

y READ SECTOR 

1226 


BPL 

DRIVON 

y JMP GOOD READ 

1228 


JMP 

RDERR 

y BAD READ•• 

1230 

DR I VON 

J SR 

WEIRD 

1 EXTRACT WEIRD BYTE 

1232 


INC 

FILCNT 

y INC COUNTER 

1 234 


BNE 

GOON 

y NO WRAP YET 

1 236 


INC 

F ILCNT-M 

y ELSE INC HI 

1 23B 

GOON 

LDA 

FILNUM 

f GET THIS FILE • 

1240 


CMP 

FINUMB 

y SAME AS 1 WE 8EEK?? 

1242 


BNE 

OOPS 

y NO!!! OOPS.. 

1244 


LDA 

CASBUFt-1 26 

y GET LO PTR 

1246 


ORA 

T0P9FC 

y OR WITH HI BYTE•• 

1 248 


BEO 

WEDONE 

y IF ZERO THEN DONE 

1 230 


JBR 

SETUP 

y ELBE SETUP FOR NXT RE£ 

1232 

DOASEC 

JBR 

SECDIB 

» DISPLAY TRACE SECTOR 

1 234 


DEC 

XCNT 

y DEC CNTR 

1 236 


BPL 

DOREAD 

y IF NOT DONE 8 THEN GET 

1238 


LDA 

# 1 

y ELSE SETUP NXT LINE 

1 260 


STA 

FAKFLG 

1 FOR ONLY • 

1262 


DEC 

YCNT 

y DEC LINE CNT 

1264 


BPL 

DORETN 

y IF NOT 16 80 BACK 

1266 


STA 

CONTIN 

y ELSE SET CONTINUE FL.G 

1260 


JMP 

EXIT2M 

y AND ESCAPE. . WF. WILL RE 

1270 

OOPS 

J8R 

CLRNAM 

y CLEAR NAME 

1 272 


LDX 

#H,LINKER 

y MSB ADDE 

1274 


LDY 

#L,LINKER 


1 276 


J SR 

FLIPIT 

1 DISPLAY 

1 278 

ONMOER 

JBR 

JU9HEX 

1 PUT UP # 

1200 


LDA 

DAUX 2 

y HI SEC 

1282 


J8R 

DOONE 

y DISP JUST LO 

1 284 


LDA 

DAUX 1 

y LO SEC 

1 286 


J SR 

DOBOTH 

y DISPLAY 

1288 

LASNSG 

LDX 

#H,ODAMSG 

y MSG HI 

1290 


LDY 

#L,ODAMSG 

y MSG LO 

1292 


J SR 

FLIPIT 

1 PUT IT UP 

1 294 

COMMEX 

L DA 

#1 

y RESTORE FAKE 

1296 


STA 

ERRFLG 


1 298 

CLRFAK 

STA 

FAKFLG 

y RE9ET FAKE 

1 300 


LDA 

#0 

y CLR CONTIN 

1302 


ST A 

FILCNT 

y CLEAR COUNT R 

1304 


STA 

CONTIN 


1306 


STA 

F ILCNT-* 1 

1 HI CLR 

1 308 


JMP 

EXIT2+1 

» AND SCRAM 

1310 

WEDONE 

LDA 

FILEN 

y GET ORIGINAL LO 

1312 


EOR 

FILCNT 

1 OR WITH COUNTER 

1314 


BNF 

SORRY 

I IF NOT ZERO..SORRY 

1316 


1. DA 

FILEN+1 

y DO HI NOW 

1318 


EOR 

FILCNT-* 1 

y OR THEM 

1 320 


BNF 

SORRY 

1 SAME AS ABOVE 

1 32? 


STA 

FILCNT 

1 CLR FOR NXT TIME 

1324 


STA 

F I LCN1 ■* 1 


1 326 


LDX 

•H,9T0PMS 

1 ANNOUNCE WE DONE 

1328 


LDY 

«L,STOPMS 

| TO THE WORLD 

1330 


J SR 

FLIPIT 

1 DO IT 

1332 


LDA 

#CR 

1 CARR RET 

1334 


JBR 

PUTCHR 

y DO I T 

1336 


LDA 

#1 

y LOAD TO CLR 

1338 


JMP 

CLRFAK 

1 EXIT GRACIOUSLY 

1340 

SORRY 

LDX 

#H,FILMSG 

I MSG ADDR 

1342 


LDY 

#1., F I LMSG 


1344 


JBR 

FLIPIT 

1 PUT IT UP 

1 346 


LDA 

FILEN41 


1 348 


J SR 

DOBOTH 


1 350 


LDA 

FILEN 


1332 


JBR 

DOBOTH 


1 334 


LDX 

#H,FI MSG 1 

y NEXT 

1336 


LDY 

#L,FI MSG 1 


1338 


J8R 

FLIPIT 

y DISPLAY 

1360 


LDA 

F ILCNT-M 


1362 


J SR 

DOBOTH 


1364 


LDA 

FILCNT 


1 366 


J SR 

DOBOTH 


1 368 


LDX 

#H,FI MSG2 

y LAST 

1 370 


LDY 

«L,FIMSG2 


1372 


J8R 

FLIPIT 

y DISPLAY 

1374 


LDA 

#0 

» CLEAR FILCNT 

1376 


STA 

FILCNT 


1378 


STA 

F ILCNTM 


1 380 


JMP 

COMMEX 

y NOW EXIT W/ERROR 

1 382 





1 384 

y « MORE 

SUBROUTINES * 


1 386 

y • 

FOLLOW 

» 


1 380 





1 390 

y 




1 392 

FLIPIT 

LDA 

DISMSBM 

y OLD PTR 

1394 


STA 

TEMPI 
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1396 


LDA 

DISMSB+2 




2063 

1* LOW D19KT00L 

TO RUN 

* 



1 39B 


STA 

TEMP? 




2070 

|* WITH 

ALL ATARI PROD- 

* 



1 400 


STY 

DI8MSG+1 

1 

POINT TO 


2073 

I* UCTS 

IN THE 

FUTURE. . . . 

• 



1402 


9 T X 

D I 3M30 *2 

1 

NEW MSG 


2080 




• 



1 404 


J SR 

MSG 

1 

PUT UP THE MSG 


2085 







1 406 


LDA 

TEMPI 

* 

RESTORE OLD 


2090 







1408 


STA 

DISMSG+1 

1 

MSG POINTER 


2093 

|* IOCB 

EQUATES 

FOLLOW * 




14 10 


LDA 

TEMP2 




2100 







1412 


STA 

D18MSG*2 




2105 

1 






14 14 


LDX 

TEMP X 

1 

RESTORE X&Y 


21 10 

IOCB4 

. DE 

*40 


1 

IOCB 4*16 

1 4t6 


LDY 

TEMPY 

I 

ALSO 


2113 

I0CB8T 

. DE 

*0340 


1 

START IOCB BLK8 

1418 


RTS 


1 

THEN RETURN 


2120 

ICHID 

. DE 

IOCBOT 


1 

HANDLER ID 

1420 

SETUP 

LDA 

T0P9EC 

1 

SECTOR MSB 


2123 

ICDNUM 

. DE 

1 CH I D * 1 


1 

DEVICE * 

1 422 


STA 

DAUX2 

1 

STORE FOR NXT READ 

2130 

1CCOM 

. DE 

ICDNUH+1 


1 

COMMAND BYTE 

1 424 

BETUP2 

LDA 

CASBUF+126 

1 

SECTOR LBB 


2133 

ICSTA 

. DE 

ICCOM*1 


1 

STATUS BYTE 

1426 


STA 

DAUX 1 

» 

STORE FOR NXT READ 

2140 

ICBAL 

. DE 

ICSTA*1 


1 

BUFFER ADDR LOW 

1428 


RTS 


1 

AND RETURN 


2143 

ICBAH 

. DE 

ICBAL * 1 


1 

BUFFER ADDR HIGH 

1 430 

DISNAM 

LDX 

#0 

1 

START AT ZERO 


2130 

I CP TL 

. DE 

ICBAH*1 


I 

POINTER LO 

1432 

BET MOR 

LDA 

NAMBUF,X 

1 

BET LETTER 


2133 

ICPTH 

. DE 

ICPTL* 1 


1 

POINTER HI 

1 434 


J SR 

9AVXY 




2160 

1CBLL 

. DE 

ICPTH+1 


I 

BUFF LEN LOW 

1 436 


J SR 

PUTCHR 

1 

DISPLAY 


2163 

ICBI.H 

. DE 

I C B L L * 1 


1 

BUFF LEN HI 

1438 


J SR 

RES X Y 




2170 

I C A X 1 

. DE 

lCDLH*1 


1 

AUX BYTE 1 

1440 


I N X 





2173 

ICAX2 

. DE 

ICA X 1*1 


1 

AUX BYTE 2 

1 44? 


CPX 

41 1 




2180 

1 






1444 


BCC 

GETMOR 




2183 

1 4 SPARE UN-LABELED BYTES FOLLOW 

IN IOCB 

1446 


RTS 


1 

GO BACK..JACK 


2190 

CIOVEC 

. DE 

• E436 


1 

CIO ADDRESS 

1448 

j••*»•• 






2193 

CLOSE 

. DE 

*0C 


1 

CLOSE COMMAND 

1430 

1* HERE 

ARE THE MSGS « 




2200 

OPEN 

. DE 

*03 


1 

OPEN COMMAND 

1432 

I■«*»«« 






2203 

GETCHR 

. DE 

• 07 


I 

GET CHAR CMND 

1 434 

t 






2210 

PUTCAR 

. DE 

• 0D 


1 

PUT CHAR CMND 

1436 

NAME 

. BY 

•FILE: ’ NULL 




2213 

QETREC 

. DE 

• 03 


1 

GET RECORD CMND 

1 438 

8ECMSG 

. BY 

8P BP SP SP * STAPT SECTOR:*' NULL 




. DE 

*09 



PUT REC CMND 

1 460 

DEL MSG 

. BY 

* 19 DELETED••* 

BELL BELL CR NULL 








WRITE (FOR OPEN) 

1 462 


. BY 

CR 'FILE NUMBER 

MISMATCH AT 8ECT0R * 

ESC 

2230 

READ 

. DE 

• 04 


1 

READ (FOR OPEN) 


ODAMSG 

. BY 

CR ’CHECK PREVI0U3 

8ECTOR LINKS!•’ 


2233 

SPLIT 

. DE 

*10 


1 

8PLIT SCREEN 

1 468 


. BY 

BELL BELL NULL 




2240 

D8PEC 

. BY 

•e:' cr 

EDITOR DEV 

1 470 

RDMSG 

. BY 

’CANNOT READ SECTOR:’ ESC RAR '*• BELL 

2243 

I 






1472 

NQM8G 

. BY 

CR 'NO ENTRY FOR FILE' F.9C RAR 

BELL 

2230 







1474 

9T0PMS 

. BY 

SP 'END' NULL 




2235 

f • NEW PUTCHR 8UBRTN * 




1476 

F1LM8G 

. BY 

CR 'ORIGINAL SECTOR COUNT* 


2260 







1478 

FIM901 

. BY 

CR ’ACTUAL SECTORS 

LOADED' 


2263 

1* A REG HA8 CHARACTR* 




1 480 

F1M982 

. BY 

CR 'SHORT FILE 

ERROR * ■ * 


2270 







1 482 

DELETE 

LDX 

•H,DELMSG 

1 

POINT TO 


2273 

1 






1404 


LDY 

• L,DELMSG 

1 

DELETED 


2280 

PUTCHR 

LDX 

•IOCB4 


1 

IOCB INDEX 

1 486 


JSR 

FLIPIT 

1 

DISPLAY 


2283 

BOCIOV 

J SR 

CIOVEC 


I 

GO TO CIO HANDLER 

1488 


RTS 


1 

RETURN 


2290 


RTS 



I 

THEN RETURN 

1490 

RDERR 

LDX 

•H,RDMSG 




2293 







1 492 


LDY 

• L,RDM9G 




2300 







1 494 


J SR 

FLIPIT 

1 

DISPLAY 


2303 

1* INITIALIZE IOCB 04 • 




1496 


LDA 

DAUX 2 

* 

SECTOR HI 


2310 







149B 


J8F< 

DOONE 

t 

DISPLAY 


2313 

1 






1300 


LDA 

DAUX 1 

1 

SECTOR LD 


2320 

CLRIOC4 

LDX 

•IOCB4 


» 

INDEX TO *4 

1302 


J SR 

DOBOTH 

1 

DISPLAY 


2323 


LDA 

•CLOSE 


1 

CLOSE COMMAND 

1304 


LDA 

• CR 

I 

LINE FEED 


2330 


STA 

ICCOM,X 


I 

STUFF COMMAND 

1306 


J SR 

PUTCHR 

I 

DO IT 


2333 


JSR 

CIOVEC 


1 

CLOSE IT 

1308 


J MP 

COMMEX 

1 

AND EXIT 


2340 


LDX 

•IOCB4 


1 

RE3ET X 

1310 







2343 

0PN10C4 

LDA 

• OPEN 


1 

OPEN COMMAND 

1312 

5* TRACE SECTOR VARS * 




2330 


STA 

ICCOM,X 


1 

STUFF IT 

13 14 







2333 


LDA 

*L,D8PEC 


» 

LOAD ADDR TO E: 

1516 

XCNT 

. BY 

0 




2360 


STA 

ICBAL,X 


1 

STUFF IT 

1318 

YCNT 

. BY 

0 




2363 


LDA 

IH,DSPEC 


1 

ADDR H 

1320 

TEMPI 

. BY 

0 




2370 


STA 

ICBAH,X 


{ 

STUFF 

1322 

TEMP2 

. BY 

0 




2373 


LDA 

•WRITE 


I 

WRITE ONLY 

1324 

TEMP X 

. BY 

0 




2380 


STA 

I C. A X l . X 


I 

STUFF 

1326 

TEMPV 

. BY 

0 




2385 


JSR 

CIOVEC 


( 

GO TO CIO HANDLER 

1 328 

CONT1N 

. BY 

0 




2390 

1 






1330 

FILCNT 

. BY 

0 0 




2393 

1•••••• 




• 


1332 







2400 

| * SET 

JP IOCB4 BO THAT WE CAN 

* 


1 334 

1* THIS 

SUBROUTINE DISPLAYS * 




2403 

|« PASS 

THE CHARACTER TO 

DIS- 

* 


1336 

1* THE 

SECTOR 

TRACE IN THE * 




2410 

I* PLAY 

IN THE 

A REGISTER. TH19* 


1338 

f* FORM 

>*XXX . 

DEPENDING ON * 




2415 

|* IS DONE BY USING THE 

PUTCAR 

* 


1 340 

1 * THE 

FAKFL.G 

VALUE THE 18T* 




2420 

|* COMMAND AND 

ENSURING 

THAT 

• 


134? 

«* VALUE OF EACH LINE WILL * 




2423 

|* THE 

BUFFER LENGTH 10 

ZERO.. 

* 


1344 

1* BE OF THE FORM *XXX. * 




2430 

1 ****** 




• 


1346 







2433 

1 






1348 

SECDIS 

JSR 

9AVXY 

1 

SAVE X &Y 


2440 


LDX 

•10CB4 


1 

RESET X 

1 330 


LDA 

FAKFLG 

1 

ONLY *XXX THIS TIME? 

2443 

SET 4 

LDA 

•PUTCAR 


1 

PUT CAR CMND 

1332 


BEQ 

DOPREF 

! 

NO-DO >• 


2430 


STA 

ICCOM,X 


1 

STUFF 

1334 


J SR 

JU8HEX 

1 

YE8-JUST * 


2433 


LDA 

• 0 


1 

ZAP BUF LEN 

1356 


J MP 

FAKEONE 

1 

THEN JUMP 


2460 


STA 

ICBLL,X 


1 

ZAP 

1338 

DOPREF 

LDA 

• ESC 

1 

SEND E8C FIRST 


2463 


STA 

ICBLH,X 


1 

ZAP 

1360 


J SR 

PUTCHR 

1 

SEND IT 


2470 


PLA 



I 

CLEAR BTACK 

1 362 


LDA 

• RAR 

1 

LOAD RIGHT ARROW 

CHAR 

2473 


RTS 



1 

RETURN TO BASIC 

1 364 


J SR 

PUTCHR 

1 

SEND IT 


3003 





* 


1366 


J SR 

JUSHEX 

1 

PUT UP * 


3010 

I* RECOVER FILE CODE FOLLOWS 

* 


1 368 

FAKEONE 

LDA 

T0P9EC 

I 

GET UPPER NYBLE 


3013 





i* 


1370 


J8R 

DOONE 

1 

DISPLAY ONLY LO 

NYBLE 

3020 

» * THE 

ACTUAL RECOVER ENTRANCE 

* 


1372 


LDA 

CASBUF+126 

1 

BET LO BYTE 


3023 

1* IS AT LABEL 

NOCON. IN 

THE 

* 


1374 


J SR 

DOBOTH 

1 

DISPLAY IT 


3030 

|* BASIC PART OF DISKTOOL THE 

• 


1376 


LDA 

• 0 

1 

LOAD ZERO 


3033 

|« RECOVR FLAG 

IS SET 80 

THAT 

* 


1370 


8T A 

FAKFLB 

t 

CLEAR FAKFLB 


3040 

f * THE 

PROGRAM 

WILL JUMP 

HERE 

* 


1380 


RTS 


1 

AND RETURN 


3043 

'l* THIE 

WAS DONE TO SAVE 

SOME 

• 


1 38? 

|••«*•• 






3050 

f* CODE 

REPETITION. 


* 


1384 

FAKFLG 

. BY 

1 

1 

INITIALLY ONE 


3033 

1 ****** 




• 


1586 


**** 





3060 

DCOMM 

. DE 

770 



COMMAND BYTE 

1 388 

1 






3063 

DBUFLO 

. DE 

772 



D9K BUF PTR LO 

1 390 



**** 




3070 

DBUFHI 

. DE 

773 



D8K BUF PTR HI 

1 392 

I* PRINT 1 BYTE * 




3073 







1394 

1 ****** 


» *** 




3080 

8T3ECL 

. BY 

0 



SEC LO STORE 

1396 

DOONE 

J SR 

CONVERT 

1 

CONVERT TO ASCII 


3083 

STSECH 

. BY 

0 



SEC HI STORE 

1398 


J SR 

ONEBYE 

1 

DISPLAY LO NYBLE 

ONL Y 

3090 

RECOVR 

. BY 

0 



RECOVER FLAG 

1 600 


RTS 


1 

AND RETURN 


3093 

DINUML 

. BY 

0 



DIRECTORY HUM LO 

2000 







3100 

DINUMH 

. BY 

0 



AND HI 

2003 

1* IOCB 

HANDLER CODE FOR * 




3103 

VTOC 

. D9 

132 



132 BYTE BUFFER 

7010 

1* DISKTOOL.THIS CODE WAS* 




3110 

1 






20 1 3 

|* WRITTEN TO 

JET RID OF * 




31 13 

DOREC 

STY 

TEMPY 



SAVE 9TATU8 INDEX 

2020 

1 « THE 

UNAUTHORIZED CALL * 




3120 


LDA 

DAUX2 



GET DIR SEC HI 

2023 

|* TO THE PUTCHR ROUTINE.* 




3123 


9T A 

STSECH 



SAVE IT 

2030 

|* THIS 

CAUSED 

PROBLEMS * 




3130 


LDA 

DAUX 1 



GET DIR SEC LO 

2033 

|* ON THE 1200 X L AND WAS * 




3133 


STA 

8TSECL 



SAVE IT 

2040 

f * NOT 

A CORRECT METHOD * 




3140 


LDX 

•H.VTQC 



ALT BUF HI ADDR 

2043 

1 * FOR 

WRITING 

A CHARAC- * 




3143 


LDY 

•L,VTOC 



ALT BUF LO ADDR 

2030 

1 * TER 

TO THE 

SCREEN. • 




3130 


ST X 

DBUFHI 



8TUF IN IOCB 

2033 

I * THE 

CIO WAY 

IS MORE * 




3133 


STY 

DBUFLO 



ALSO LO 

2060 

|* FLEXIBLE AND SHOULD AL* 




3160 


LDX 

• *68 



VTOC SECTOR 360 
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3163 


LDY 

• •01 


1 

IS *0168 

3170 


STY 

DAUX2 


I 

STUFF MSB 

3173 


8TX 

DAUX1 


1 

STUFF L8B 

3180 


J SR 

DSKVEC 


1 

LOAD VTOC INTO ALT BUFFE 

3183 


BPL 

RESBUF 


1 

IF NO ERROR RESTORE OLD 

3 190 


LDX 

•H,VR8AD 


1 

MSB HI ADR 

3193 


LDY 

•L,VRBAD 


1 

LO ADR 

3200 


J SR 

FLIPIT 


1 

DISPLAY IT 

3203 


J SR 

CLRNAM 


1 

CLEAR NAME 

3210 


J HP 

RDERR 


I 

ELSE EXIT W/ERROR 

32 13 

RE3BUF 

0 SR 

RESDSK 


1 

RESTORE D9K IOCB 

3220 

1 






3223 







3230 

»* RESTORE INDEX AND CK 9TATU9 * 


3233 




* *« 



3240 

1 






3243 


LDY 

TEMPY 


1 

RESTORE INDEX 

3230 


LDA 

(PAGE 0) ,Y 


1 

GET STATUS 

3233 


BNE 

9T0FIL 


1 

J MP IF ENTRY 

3260 


J MP 

NOENT 


9 

ERROR SO J MP 

3263 

9T0F1L 

ST A 

FIL9TA 


1 

ELSE SAVE STATUS 

3270 


BIT 

F IL9TA 


I 

FILE DELETED FOR SURE?? 

3273 


BPL 

FI USED 


1 

NO 11 USER PLAYING TRICKS 

3280 


LDX 

• H,PASS 1 


1 

OK..ITS DELETED 

3283 


LDY 

• L,PASS 1 


I 

NOTIFY USER WHATS HAPNIN 

3290 


J SR 

FLIPIT 


1 

DI SPLAY MSG 

3293 

1 






3300 




* # 



3303 

1 * TRACE 

SECTORS FOR CONTINUITY* 


33 ! 0 




• •< 

* *** 


33 13 

9 






3320 


LDA 

STSECH 


1 

RESTORE SEC HI 

3323 


STA 

DAUX2 


1 

STUF IN IOCB 

3330 


LDA 

STSECL 


1 

GET SEC LO 

3333 


STA 

DAUX l 


1 

STUF IT TOO 

3340 

VERIFY 

J SR 

DSKVEC 


1 

GET A SECTOR 

3343 


BPL 

V0O 


1 

J MP GOOD READ 

3330 


J SR 

DI9NAM 


1 

DIPLAY NAM 

3333 


JSR 

CLRNAM 


1 

CLR NAME 

3360 


LDX 

#H,FIRDE 


1 

MSB HI ADR 

3363 


LDY 

•L.FIRDE 


1 

MSG LO ADR 

3370 


J SR 

FLIPIT 


1 

DISPLAY MSG 

3373 


J MP 

RDERR 


1 

EXIT W/ERROR 

3380 

VOO 

J9R 

WEIRD 


1 

EXTRACT LO/HI NXT SECTOR 

3383 


INC 

FILCNT 


1 

INC SECTOR COUNTER 

3390 


BNE 

VQOON 


1 

BRANCH NO WRAP 

3393 


INC 

F ILCNT-M 


1 

ELSE INC HI 

3400 

VQOON 

LDA 

F ILNUM 


1 

GET FILE • TO WHICH SEC 

3403 


CMP 

F INUMB 


1 

SAME AS 1 WE SEEK? 

34 1 0 


BNE 

NOREC 


» 

NO..FILE NOT RECOVERABLE 

34 13 


LDA 

CASBUF* 126 


i 

YES. GET LO POINTER 

3420 


ORA 

TOPSEC 


t 

OR WITH HI SECTOR 

3423 


BEG) 

CKSECN 


1 

IF ZERO..TRACE IS DONE 

3430 


J SR 

SETUP 


1 

ELSE 9ETUP NXT READ 

3433 


J MP 

VERIFY 


1 

AND GET NXT SECTOR 

3440 

1 






3443 




*»« 



3430 

|* P ASSl 

ERROR 

PROCESSING 

HERE * 


3433 

9 «*•»•»•< 

*••**i 



tt»* 


3460 

1 






3463 

FIUSED 

J SR 

DI3NAM 


1 

DISPLAY FILE NAME 

3470 


LDX 

•H.NODEL 


1 

MSG HI 

3473 


LDY 

#L,NODEL 


1 

MSG LO 

3480 


J SR 

FLIPIT 


1 

DISPLAY IT 

3483 

EU9E 

J MP 

COMMEX 


1 

EXIT WITH ERROR 

3490 

NOREC 

LDX 

•H,LINKER 


1 

MSG HI 

3493 


LDY 

•L,LINKER 


1 

MSG LO 

3300 


J SR 

FLIPIT 


1 

DISPLAY 

3303 


J SR 

JU9HEX 


1 

PUT UP A * 

3310 


LDA 

DAUX2 


1 

HI SEC • 

3313 


J SR 

DOONE 


1 

DISPLAY ONLY LO NYBLE 

3320 


LDA 

DAUX 1 


1 

LO SEC NUM 

3323 


J SR 

DOBOTH 


9 

DISPLAY WHOLE THINS 

3330 


LDA 

• CR 


1 

LOAD CRET 

3333 


J SR 

PUTCHR 


1 

DISPLAY 

3340 


LDX 

•H,NAME 


1 

FILE: MSG 

3343 


LDY 

•L,NAME 


1 

LO ADDR 

3330 


J SR 

FLIPIT 


1 

PUT UP MSG 

3333 


J SR 

DISNAM 


1 

PUT UP FILE NAME 

3360 


LDX 

•H,NORECO 


1 

NON-RECOVER MSG HI 

3363 


LDY 

•L,NORECO 


1 

MSB LO 

3370 


J SR 

FLIPIT 


1 

DISPLAY 

3373 


J SR 

CLRNAM 


1 

CLEAR FILE NAME 

3380 


BEQ 

EUSE 


1 

EXIT W/ERROR 

3383 

DOOM 

J SR 

DI9NAM 


1 

DISP NAME 

3390 


J SR 

CLRNAM 



CLR NAME 

3393 


LDX 

•H,NORECO 


9 

ADR HI 

3600 


LDY 

•L,NORECO 


1 

ADR LO 

3603 


J SR 

FLIPIT 


1 

DISPLAY IT 

3610 


J MP 

SORRY 


9 

CONTINUE ER 

3613 

1 






3620 




**« 

»*•** 


3623 

1* CHECK 

TO SEE THAT LENGTH 

IN * 


3630 

1* DIRECTORY MATCHES LEN 

OF 

FIL* 


3633 




* *i 

>•••• 


3640 

1 






3643 

CKSECN 

LDA 

FILEN 


1 

ORIGINAL LO 

3630 


EOR 

FILCNT 


1 

OR W/COUNT 

3633 


BNE 

DOOM 


1 

NO..ERROR 

3660 


LDA 

F I LEN-*-1 


I 

ORIG HI 

3663 


EOR 

F J LCNT♦1 


« 

OR ALSO 

3670 


BNE 

DOOM 


9 

GO IF ERROR 

3673 


STA 

FILCNT 


i 

CLR COUNTER 

3680 


STA 

F1LCNT+1 


i 

LO/HI 

3683 

* 






3690 




• *i 

»•••• 


3693 

|* BEGIN 

PASS 

OF FILE RECOVER* 


3700 




**i 

»•••• 


3703 

1 






37 10 

PA9S2 

LDX 

• H. OK 


* 

OK M8B HI 

3713 


LDY 

• L, OK 


i 

AND LO 

3720 


J SR 

FLIPIT 


9 

DISPLAY 

3 723 

1 






3730 





»*** 


3733 

J* GET DIRECTORY FOR OUR 

FILE * 



3740 J 


3743 » 


3730 

LDA DINUML 

1 

LO BYTE 

3735 

STA DAUX1 

9 

STUFF IT 

3760 

LDA DINUMH 

1 

HI BYTE 

3763 

STA DAUX2 

1 

STUFF IT 

3770 

J SR DSKVEC 

1 

GO READ IT 

3773 

BPL CHKDOS 

1 

J MP GOOD RD 

3780 

LDX •H.DIRDE 

1 

MSG HI 

3783 

LDY *L , D IRDE 

1 

MSB LO 

3790 

J SR FLIPIT 

I 

DISPLAY IT 

3793 

J SR CLRNAM 

1 

CLR NAME 

3800 

JMP COMMEX 

1 

ELSE EXIT 

3803 

CHKDOS LDY «0 

9 

CLEAR Y REB 

3810 

LDA VTOC 

9 

GET VTOC DOS 

3813 

CMP •DOSMSK 

1 

IS IT DOS 29 

3820 

BNE DOS 1FL 

1 

NO..DOS 1 

3023 

LDA •*4 2 

1 

LOAD FILE USED 

3830 

BNE STOSTA 

I 

AND BRANCH 

3833 

DOS t FL LDA H»40 

1 

ELSE ONLY USED 

3840 

STOSTA STA <PAGE0>,Y 

1 

STORE NEW STATUS 

3843 

LDA *'W 

1 

LOAD WRITE COMMAND 

3830 

STA DCOMM 

1 

STUFF IN DSK IOCB 

3833 

JSR DSKVEC 

1 

WRITE OUT DIR SEC 

3860 

BPL WFINE 

1 

J MP GOOD WRITE 

3865 

J SR RESDSK 

1 

RESTORE DSK IOCB 

3870 

J3R CLRNAM 

1 

ERROR CLR NAME 

3873 

LDX *H,DIRWE 

1 

MSB HI 

3880 

LDY tL.DIRWE 

1 

MSG LO 

3883 

J OR FLIPIT 

1 

DISPLAY 

3890 

LDA DAUX2 

1 

SECTOR MSB 

3893 

J SR DOONE 

1 

DISP 1 DIBIT 

3900 

LDA DAUXl 

1 

SECTOR LSB 

3903 

J SR DOBOTH 

1 

DISP 2 DIGS 

39 1 0 

LDX *H,DIRWE 2 

1 

PT2 HI 

3913 

LDY #L,DIRWE2 

1 

PT 2 LO 

39 2 0 

JSR FLIPIT 

1 

DISPLAY 

3923 

J MP COMMEX 

1 

EXIT W/ERROR 

3930 

WFINE J SR RESDSK 

1 

RESTORE DSK IOCB 

3933 

LDX #H,DIRENT 

I 

DIRECTORY DONF MSG 

39 4 0 

LDY *L,DIRENT 

l 

AND LO 

3943 

J SR FLIPIT 

9 

WRITE IT 

3930 

3933 




3960 

l» NOW RETRACE EACH SECTOR 

AND * 


3963 

»* UPDATE THE BIT MAP TO FULLY * 


397 0 

t* RECOVER THE FILE..DO NOT FOR-* 


3973 

1• GET TO DECREMENT THE • 

OF SEC* 


3980 

»* TORS AVAILABLE FOR EACH 

SEC- * 


3983 

1* TOR THAT IS ALLOCATED.. 

* 


3990 




399.3 

4000 

1 

LDX #H,REALO 

1 

REALOCATE MSG 

4003 

LDY #L,REALO 

1 

HI /LO 

40 1 0 

J SR FLIPIT 

1 

DISPLAY 

4013 

LDA STSECL 

1 

LO SEC 

4020 

STA DAUXl 

9 

STUFF IT 

4023 

LDA STSECH 

1 

HI SEC 

4030 

STA DAUX2 

J 

STUFF IT 

4033 

RREC J SR DSKVEC 

1 

GET A SECT 

4040 

BPL RGO 

1 

JMP GOOD RD 

4043 

LDX HH.FIRDE 

I 

MSG HI 

4030 

LDY #L,FIRDE 

( 

MSG LO 

4033 

J SR FLIPIT 

1 

DISPLAY 

4060 

J SR CLRNAM 

1 

CLEAR NAME 

4063 

J MP RDERR 

1 

GO READ ER 

4070 

RGO J SR FINDIT 

1 

FIND VTOC BYTE 

4073 

JSR WEIRD 

1 

GET NXT SEC 

4080 

LDA CASBUF♦126 

9 

GET LO PTR 

4083 

ORA TOPSEC 

1 

OR WITH HI 

4090 

BEQ RECDON 

1 

IF 0 WE FINEETO 

4093 

JSR SETUP 

1 

ELSE SET NXT READ 

4100 

J MP RREC 

? 

AND DO IT 


4103 » 

4110 |*••••••••••••*•»•*»•••*»*•••••• 

4113 l* RECOVER FILE CLEAN UP CODE. * 


4 120 

1 • 

SAVE NEW VTOC. CLEAR FLAGS, 


4123 

1 i 

PUT UP SUCCESS MSG AND RET. 


4130 

1 * 

TO BASIC. FILE IS RECOVERED. 


4 133 

1 * 

(PLEASE LET 

IT BE RECOVERED)* 

4140 

1 * 




4143 

1 




4130 

RECDON LDX 

•H,VTOC 

1 BUF PTR H 

4 133 


LDY 

•L,VTOC 

» BUF PTR L 

4160 


ST X 

DBUFHI 

1 STUFF IT 

4 163 


STY 

DBUFLO 

1 STUFF IT 

4 170 


LDX 

• •68 

t SECTOR 360 

4 173 


LDY 

• •0 1 

» “ *0160 

4 1 80 


ST X 

DAUX 1 

1 STUFF 

4 183 


STY 

DAUX2 

1 STUFF 

4 190 


LDA 

• ’ W 

1 WRITE COM 

4 193 


STA 

DCOMM 

1 STUFF IT 

4200 


JSR 

DSKVEC 

1 WRITE IT 

4203 


BPL 

VOUTOK 

1 JMP GOOD W 

4210 


LDX 

•H,VBAD 

1 QET MS 0 

42 13 


LDY 

•L,VBAD 

1 ADDRESS 

4220 


JSR 

FLIPIT 

I DISPLAY IT 

4223 


JSR 

RESDSK 

1 RESTORE DSK IOCB 

4230 


JMP 

COMMEX 

» EXIT W/ERR 

4233 

VOUTOK JSR 

RESDSK 

1 RESTORE IOCB 

4240 


JSR 

DISNAM 

1 DISP NAME 

4243 


LDX 

•H,SUCCES 

1 SUCCES MS8 

4230 


LDY 

•L,SUCCES 

f ADDRESS 

4233 


JSR 

FLIPIT 

I DISPLAY IT 

4260 


JSR 

CLRNAM 

1 CLEAR NAME 

4263 


ST X 

RECOVR 

1 CLEAR RECOVER FLAG 

4270 


JMP 

EXIT2+1 

1 RETURN TO BASIC 1 ' 

4273 

1 




4280 

1 *< 



* 

4283 

1 * 

SUBROUTINE RESDSK: RESTORES 

* 

4290 

1 * 

THE DISK IOCB TO A READ CON- 

• 

4293 

1 * 

DITION AND POINTS THE BUFFER 

* 

4300 

1 * 

TO CA8BUF. 


• 

4303 




• 

43 10 

1 




4313 

RESDSK LDX 

•H,CASBUF 

I BUF HI 

4320 


LDY 

•L,CASBUF 

l BUF LO 
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4323 


ST X 

DBUFHI 


STUFF 

4330 


STY 

DBUFLO 


STUFF 

4333 


LDX 

# * R 


READ COM 

4340 


ST X 

DCOHM 


STUFF 

4343 

4330 

4333 

I 

1 

RTS 



RETURN 

4360 

1 * 

SUBROUTINE 1 

findit: finds 

THE* 


4363 

1 * 

APPROPRIATE 

BYTE OF THE 

VTOC* 



4370 |* AND THE PROPER BIT OF THAT * 
4373 |* BYTE WHICH REPRESENTS THE * 
4380 |* CURRENT SECTOR OF OUR FILE. * 
4383 |* THE SECTOR HAP IS UPDATED TO# 
4390 I* ALLOCATE THE CURRENT SECTOR * 
4393 |# AB BEIN0 USED. IN ADDITION, * 
4400 |# THE NUMBER OF FREE SECTORS * 
4403 I* AVAILABLE IS DECREMENTED 90 * 
4410 1* THAT DOS D0E9NT GO BANNANAS.* 


LINKER -2214 
LOCKED »0020 
HAK BIN -lE6F 
NAMBUF “1 FDD 
NOCON -2029 
NOERR -204B 
NOH1 BY “IF9E 
NORECO -2638 
N X T SEC * 1F A9 
ONEBYE -1DE7 
OPEN »0003 
OUTFIL “1EFE 
PAS32 -24F3 
P8TATU - 1 F7 0 
PUTLEN -1F38 
PUTSEC -IF04 
RDERR -22DD 
REAL.0 »26AE 


44 1 3 

»•»»»••• 




REDIR — 1 EPF 






RES X Y — 1E I F 

4423 

FINDIT 

LDA 

M0 

I CLEAR OUT A 

SAVEX -1D7F 

4430 


LDY 

• 3 

» PREP FOR /8 

SEC DIS -2301 

4433 

FIND0 

L3R 

DAUX2 

1 DIVIDE BY BHIFTING 

9E T 4 -2364 

4440 


ROR 

DAUX1 

I SAME FOR LO 

SETY -20BD 

4443 


ROR 

A 

1 AND ALSO A REG 

SPACE 1 -1DB2 

4430 


DEY 


I DEC CNTR 

START -ICFC 

4433 


BNE 

FIND0 

I DO 3 SHIFT9 TO DIV 

3T0FIL -243E 

4460 


LDY 

#3 

» DETERMINE SHFT CNT 

STSECH -2374 

4463 

FIND! 

ROR 

A 

1 ROTATE BIT IN A REG 

SUBPER “1 DOB 

4470 


DEY 


I DEC CNT 

TEMP “1E64 

4473 


BNE 

FIND1 

1 DO 3 TIMES 

TEMP X -22FC 

4400 


TAY 


1 USE AS CNTR IN Y 

TOPSEC -11)83 

4483 


LDA 

#0 

I CLEAR A 

VBAD -26E3 

4490 


8EC 


I SET OUR BIT IN CARRY 

VGOON “2479 

4493 

FIND2 

ROR 

A 

1 AND SHIFT TO PROPER 

VTOC *2378 

4300 


DEY 


I DEC SHFT CNT 

WFINE -2356 

4303 


BPL 

FIND2 

I SHFT TIL NEGATIVE 

XCNT -22F8 

4310 


PHA 


I SAVE THE PROPER BIT 

//0000,2739,B33D 

4313 


LDA 

DAUX 1 

| GET VTOC BYTE NUMBER 


4320 


ADC 

«»0A 

| ADD VTOC OFFSET 


4323 


T AY 


| INDEX OF VTOC BYTE 


4330 


PLA 


I PULL THE MASK 


4333 


EOR 

VTOC,Y 

1 CLEAR SECTOR BIT 


4340 


9TA 

VTOC,Y 

| PUT BACK IN VTOC 


4343 


DEC 

VTOC+3 

1 DEC AVAILABLE SECTORS 


4330 


LDA 

VTOC+3 

I GET VAL 


4333 


CMP 

• •FF 

1 DID WE FLIP? 


4360 


BNE 

NOH I 

1 NO.RE TURN 


4363 


DEC 

V TOC + 4 

» ELSE DEC HI 


4370 

NOH I 

RTS 


1 AND RETURN 



LOADIT -204F 
LOHEX -1DF1 
ME3AGE -ID06 
NAME -21E8 
NOOEL -2644 
NOFLIP —IF BC 
NOMS0 -226F 
NOT ASC -IE34 
ODAMSQ -2236 
ONMOER -2114 
OPNIOC4 -234B 
PAGE0 -00CD 
PERIOD -002E 
PUTCAR “000B 
PUll.TR -1F72 
PUTSTA -IF46 
RDMS0 -2237 
RECDQN “2399 
RE9BUF -2431 
R0O *2383 
3AVEY -1DB0 
9ECMAX -1FF2 
SETUP -21C7 
SORRY -2167 
SPACE?. * 1 DAF 
3TASEC — 1 FEB 
STORMS -2286 
ST9ECL “2373 
SUCCES “26CC 
TEMPI -22FA 
TEMPY -22FD 
TRASEC “2020 
VERIFY -2439 
VOUTOK -23C4 
WEDONE -2140 
WFLAG -1D82 
YCNT -22F9 


LOADR -1E16 
L T9 -1DC0 
MSG —lD83 
NEWLNK -2002 
NOENT -2090 
NOHI -2621 
NOREC -249C 
NULL -0000 
OK -2672 
OOPS -210A 
OUT -1DDD 
PASS 1 -2622 
PREFIX -IE26 
PUTCHR -2339 
PUTREC “0009 
RAR —001F 
READ -0004 
RECOV'R -2373 
RESD3K -23DA 
RREC -2373 
SAVXY -1E18 
SECMSG -21EF 
SETUP? -21 CD 
SP -0020 
SPLIT “0010 
STCHK -2079 
STOSTA -2327 
STUFIT -1E37 
TAB “007F 
TEMP2 -22FB 
TOGGLE -1FF1 
UPDATE -1E06 
V80 —246E 
VR8AD -26FB 
WEIRD -2010 
WRITE “0008 


4373 
4380 
4383 
4390 
4393 PASS 1 
4600 


I* RECOVER FILE MESSAGES FOLLOW* 

I*******»••«•»»«•»»»»»»t**»***»» 


.BY TAB ’PA991 - * 

.BY * CHECK IN8 FILE CONDITION' CR NULL 
4603 NODEL .BY ' IS NOT DELETED!!' CR BELL NULL 

4610 NORECO .BY *, CANNOT BE RECOVERED!!' BELL CR NULL 

4613 OK .BY 'FILE INTACT' CR TAB 'PAS32 - ' 

4620 -BY ’RECOVERING FILE' CR NULL 

4623 DIRENT .BY 'DIRECTORY ENTRY DONE' CR NULL 

4630 REALO .BY 'REALLOCATING DELETED SECTORS’ CR NULL 

4633 SUCCES .BY * HAS BEEN RECOVERED 1 ' BELL CR NULL 

4640 VBAD .BY 'ERROR IN VTOC WRITE!!' BELL CR NULL 

4643 VRBAD .BY ’ERROR IN VTOC READ ! 1 ' BELL CR NULL 

4630 FIRDE .BY 'FILE READ ERROR 1 ' BELL CR NULL 

4633 DIRDE .BY 'DIRECTORY READ ERROR 1 ' BELL CR NULL 

4660 DIRWE -BY 'DIRECTORY WRITE ERROR 1 ’ ESC RAR 

4663 DIRWE2 .BY BELL CR NULL 

0034 .EN 


- LABEL FILE: 


AROUND -IE0F 

AS2BIN -IE63 

ASBIN1 -1E6E 

A9T ART — 1CFC 

BELL —00F D 

CA3BUF -03FD 

CHGLNK * 1FFC 

CHKD03 -2318 

CHNGBY -IE31 

CHRCNT “1D81 

CIOVEC -E436 

CKDOOM -1DC3 

CK DOS -lEEA 

CKl.OCK -IEDE 

CK8ECN -24DD 

CKSTA -1ECA 

CK USE D -IED7 

CLENUP -1FD7 

CLOSE “000C 

CLRFAK -212F 

CLRI0C4 -233F 

CLRNAM — 1FCC 

CLR8PA -IFD0 

CLS —007 D 

COMMEX -21 2A 

CONASC -1DB8 

CONTIN “22FE 

CONVERT -1DF3 

CR —009 B 

DAUX1 -030A 

DAUX2 -030B 

DBUFHI -0303 

DBUFLO -0304 

DCOMM “0302 

DELETE -22D3 

DELM9G -2203 

DERR -ID34 

DINUMH -2377 

DINUML -2376 

DIRDE -2726 

DIRENT -2698 

DIRWE -273E 

DIRWE7. -2736 

DI9M9Q — 1D87 

DI3NAM -21D4 

DI8PFL -1F12 

DI3PLY “1 DDE 

DMPASC -1D41 

DOASEC “20F2 

DOBOTH —1E88 

DOEXT -1F2C 

DOOM -24CD 

DOONE -232F 

DOPREF -230F 

DOREAD -20CC 

DOREC -23FC 

DORETN -20C2 

DOS 1 -1EF9 

DOS 1FL -2323 

D09MSK -0002 

DR1 VON -20D4 

D8KVEC -E433 

DSPEC -2336 

D8PMEX -ID19 

ENDM30 -1D99 

ENTLNK -IFF4 

ERRFLG -1D7E 

ERRTRP -2048 

ESC -001B 

EUSE -2499 

EXIT -1D37 

EXIT2 -1D3F 

FAKEONE "231C 

FAKFLG -232E 

FILCNT -22FF 

FILEN -1FEA 

FILMSG -228B 

FILNUM -1D84 

F I LOOP -1E9C 

FIL9TA — 1FEC 

FIMSG1 -22A3 

FIMSG2 -22BF 

FIND0 -23EE 

FINDl -23FA 

FIND2 -2602 

FINDIT -23EA 

FI NUMB -1FF3 

FIRDE -2713 

FIST AR -1EBF 

FIUSED -248F 

FLIPIT -219F 

0ETCHR -0007 

GETIT -1D4C 

GETLEN -1EB3 

GETMOR -21D6 

0ETNAM -IEA0 

QETREC -0003 

0ET9TA -1EAD 

GOCIOV -233B 

BOON -20DF 

HEADER -ID9A 

HI ADR —1E 1 7 

HIHE X -1DF2 

HX2BIN -IE47 

ICAXl —034A 

ICAX2 -034B 

ICBAH -0343 

IC8AL -0344 

ICBLH -0349 

ICBLL -0348 

ICCOM -0342 

ICDNUM -0341 

ICHID -0340 

ICPTH -0347 

ICPTL -0346 

ICSTA -0343 

INDEX -1E38 

I0CB4 -0040 

tOCBST *0340 

ITSUSD -20A0 

JPONT -IE83 

JUSHEX -1E2B 

LA9M3G -2123 


Listing 5. 


18 REM KmtMKMKMKKKKMKKMMMMMKKKMKMMMM 
15 REM X DISK TOOL BASIC PROGRAM * 
20 REM * BY TONY MESSINA tCJ 1982 X 
25 REM XMXXXXXKMMXXMXXMMMXKXMMXMXXXX 
30 POKE 82,0:REM XXLFT MAR TO 0 XXX 
35 REM 

40 REN XXMMXMKXXXXXMKXKXXMXXltMMMMXMX 
45 REM * UARIABLE/CONSTANT/STRINGS X 
50 REM * INITIALIZATION FOLLOWS * 
55 REM xxxxxxxxxxxxxxxxxx mxkxxxxxx x x 


60 REM X CONSTANTS FOLLOW X 

65 REM * THE FOLLOWING CONSTANTS * 

70 REM * ARE USED TO MAKE THE DSK- * 

75 REM * TOOL LISTING EASIER TO * 

80 REM * READ. IT ALSO PROVIDES A X 
85 REM X CENTRAL LOCATION FOR ISO- X 
SO REM X LATING ADDRESS POINTERS INX 
95 REM X ORDER TO MAKE MODIFICATIONX 
100 REM X OF THE PROGRAM EASIER. X 
105 REM X ENTRIES ARE ALPHABETICAL. X 
110 REM X SEE THE CONSTANTS DE5CRIP-X 
115 REM X TION SECTION OF THE DOCU- X 
120 REM X MENTATION FOR DEFINITIONS.X 
125 REM XXXXKKKXXKXKKXKXXKXXXXKXKXKXX 
130 REM 

135 BACKGND=710:BLACK=O:BORDER=712:BUF 
HI=773:BUFLO-772:BUFPTR=126:CA5BUF=102 
1: CASPTR-CASBUF + BUFPTR 

140 CHAR-709:CHNGBY-7729:CKLIM-475:CKR 

0LM=590:CKR0LP=550:CLI0C4=9023:CNTIN=8 

958:DAUX1=778:DAUX2=779 

145 DBYHI—777:DBYL0=776:DC0MM=770:DECH 

EX=1360:DUNIT—769:ENTLNK=8180:ERRFLG=7 

550:ERTRAP=625:FXLNUM=7556 

150 FINUHB=8179:GREEN=214:GSEC=82:HEXD 

EC=1270:HIL0=515:MESAGE=7430:NWLNK=819 

4:PCHANGE=1085:PDIR=1428 

155 PHELP=1190:PLUSMIN=865:PM0D=1645:P 

PRINT=1530:PREC0UER=1930:PR0CINP=745:P 

SEC=87:PSET=2030:PTRACE=1795:PWRITE=95 

0 

160 REC0VR=9077:RED=64:REDIR=7823:SCRO 

LL=660:SETDSK=400:SETSCRN=705:START=74 

20:T 0P5EC=7555iTRASEC=8224 

165 TURQ=186: WFLAG=7554:MHITE = 10:YELLO 

W=26 

178 REM 

175 REM KKXXXKKXXXXXXXKXXXXXXKXMKXXXK 
180 REM X VARIABLES FOLLOW X 
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185 REM 
190 REM 
195 REM 
ZOO REM 
205 REM 
210 REM 
215 REM 
220 REM 


* THE FOLLOWING ARE VARIA- * 

* BLE5 SET TO THEIR DEFAULT * 

* VALUES INDICATED DURING * 

* PROGRAM INITIALIZATION.SEE* 

* VARIABLE DESCRIPTION SEC- * 

* TION OF DOCUMENTATION FOR * 

* LIST OF ALL VARIABLES AND * 

* THEIR PURPOSE. * 

225 REM *KKKKKKKKXKXXXX*KX X* XKXXKXXXX 
230 REM 

235 DRIVE:: 1:HELP=1:SECHI=0:SECL0W=1:SE 

CNUM-1 

240 REM 

245 REM KXXKMXXXXKMMKXMXMXMMXM***** * 
250 REM * STRING INIT FOLLOWS * 
255 REM * SEE STRING DESCRIPTION * 
260 REN * SECTION OF DOCUMENTATION * 
265 REM * FOR DESCRIPTION AND USES * 
270 REM * OF THE FOLLOWING STRINGS.* 
275 REM MMMXXMXXMKXKKXXXXXXXXMXXXXXX 
280 REM 

285 DIM A$(401,AN$ (II ,HEXREPS (4),HEXTA 
B$(16! 

290 HEXTAB$- ,, 0123456789ABCDEF" 

295 REM 

300 REM * * XKXKKMKMXKKXKMKXMMKKKMXKXK 
305 REM * VARIABLE/CONSTANT/STRING * 
310 REM * INITIALIZATION END * 

315 REM XXKKXXKXXKXKXKXKXKKXKXXKXKXK 
320 REM 

325 TRAP ERTRAP 
330 GOSUB SETDSK 

335 X-USR (CLI0C41:REM CLR IOCB 4 
340 GOTO PHELP 
345 REM 

350 REM xkkkxxkxxkxkkx * *xxkkxxkxkkxxx 
355 REM «COMMON PROGRAM SUBROUTINES * 
360 REM XKXXXKXXXXXXXXXKKKKKXXXXXXXKX 
365 REM 

370 REM * * - K**KXKX MXKXXK* * KX«*XXXXKXX 
375 REM * BHB1 * 

380 REM * SET UP DISK VECTOR TABLE * 
385 REM * * * *KMMKMXMKXXKKXMKXXK - K*XX*X 
390 REM 
395 REM 

400 POKE DUNIT,DRIVE:REM ** DRIVE It 
405 POKE DCOMM,GSEC:REM ** FOR READ 
410 POKE DAUK1,SECLOW 
415 POKE DAUX2,SECHI 

420 POKE BUFLO,253:REM ** LOW BUF ADR 
(SFDJ** 

425 POKE BUFHI,3:REM **HI BUF ADR (S03 
1 ** 

430 POKE DBYLO,127:REM ** GET 128 BYTE 
S (1 SECTOR! ** 

435 POKE DBYHI,O:REM ** NO HI ** 

446 RETURN 
445 REM 

450 REM XK XXXXXX XXKXXKKKKMXXKX - KXKXXX* 
455 REM * H3BCH * 

460 REM * CK SECNUM LIMITS <1 >720 * 

465 REM KXKXKXXXXXXXKXXKXXXXKXKXXXXKX 
470 REM 

475 SECNUM^VAL(AS!;I F SECNUM<1 OR SECN 
,^>72 6 them ? ■■ 

: POP : GOTO PROCINP 

480 RETURN 
485 REM 

490 REM XX XXXXX XXXXXXXXXXXXXXXXXXXXX 
495 REM * smog * 

500 REM *BREAK SECNUM TO HI/LO FORM* 
505 REM ■ XXXKXXXXMKXKKXKKXKXKX*XXKXXK 
510 REM 

515 SECHI=INT(SECNUM/2561:SECLOW=INT(S 
ECNUM-(5ECHI*256!!:RETURN 
520 REM 

525 REM XX XXXKKXK XXXXXKKKKKXXKKXKXX 

526 REM * W3:TiTJI * 

530 REM * ROLL SECTOR NUM TO 1 IF * 

535 REM * >720 * 

540 REM ** * XXKXXXKXXXKXXXXXKXKKXXXX 
545 REM 

550 IF SECNUM>720 THEN SECNUMd 
555 RETURN 
560 REM 

565 REM KM XXXXXXK XXXXXXXXXXXXXXXXXX 

566 rem * Haaaia * 


570 REM * ROLL SECTOR NUM TO 720 * 

575 REM * < 1 * 

580 REM MXKXMKMKMXKMXKKKKXKXKKMKKKX 
585 REM 

590 IF SECNUM<1 THEN SECNUM=720 
595 RETURN 
600 REM 

605 REM MM XMMMMKM KKMMXK*MMMKKXXXXXX 

606 REM * U-HrHJl * 

610 REM * GO HERE ON ERROR * 

615 REM KMKKMKXKX - KKKKXKKKKKXXXKKXMK 
620 REM _ 

625 ? " ► HMfrWCIJUNJT *: POKE CHAR, BLA 
CK :POKE BACKGND,GREEN:TRAP ERTRAP:GOTO 
PROCINP 
630 REM 

635 REM XX KKKKKXK XXXKKXXKKXXXKKKXKX 

636 REM * fcfJrlilNW * 

640 REM * SCROLL 5 LINES * 

645 REM * FROM THE BOTTOM OF SCRN * 

650 REM M**XXXXX**XXXXXXXXXXXXXXXXX 
655 REM _ 

660 POSITION 0,17:? "EZZX23" ■■ POSITION O 
,17:RETURN 
665 REM 

670 REM ** K*XXXX ** * KKMMKKXKMMMMXXXX 

671 REM * HMH3331 * 

675 REM * SET SCREEN TO * 

680 REM * DEFAULT COLORS OF GREEN * 

685 REM * BACKGND,WHITE BORD,BLACK* 

690 REM * LETTERS. * 

695 REM XXXXXXXXXXXXXXXXXXXXXXXXXXX 
700 REM 

705 POKE BORDER,WHITE:POKE CHAR,BLACK: 
POKE BACKGND,GREEN:RETURN 
710 REM 

715 REM XX MXXXKX XXXKKKKXXXKXXKXXKKXX 
720 REM * H3THTaiTTJl * 

725 REM * MAIN COMMAND/INPUT PROC- * 
730 REM * ESSING PORTION FOLLOWS * 
735 REM XMKXXKXXXKXKXKXXXXKXXXXXKXXX 

740 REM __ 

1= DRIVE: ? 

:INPUT AS 
THEN HELP=1:G0T0 PHELP 
THEN GOSUB PPRINT:GOTO 


? "I 


CURRENT DRIVE 
COMMAND OR SECTOR NUMBER 


745 

K_, 

750 IF AS^'H" 

755 IF AS= ,, P" 

ROCINP 

760 IF AS= ,, T" THEN GOTO PTRACE 
765 HELP-0 

770 IF AS- ,, +" OR AS = ,,m THEN SECNUItSEC 

NUM+l:GOSUB CKROLP:GOTO PLUSMIN 

775 IF ASd^lr’'-" THEN SECNUM=SECNUM~ 

1: GOSUB CKROLM:GOTO PLUSMIN 

780 IF AS= ,, W" THEN GRAPHICS 0: GOSUB PW 

RITE:GOTO PROCINP 

785 IF AS= ,, C" THEN GRAPHICS 0: GOSUB PC 

HANGE:GOTO PROCINP 

790 IF AS= ,, D" THEN GOTO PDIR 

795 IF A$="T" THEN GOTO PTRACE 

800 IF AS= ,, M , ‘ THEN GRAPHICS 0: GOSUB SE 

TSCRN:GOTO PMOD 

885 IF AS= ,, R" THEN GOTO PRECOVER 
810 IF AS="S" THEN GRAPHICS 0:GOSUB SE 
TSCRN:GOTO P5ET 

815 IF A$(l,l!::"$" THEN GOSUB HEKDEC 
820 GOSUB CKLIM 
825 REM 

830 REM XK XXXKXKXX XKXXKKXXXKKXK ***** 

835 rem * ijnim:h:h * 

840 REM * PROCESS THE (♦! (-> OR * 

845 REM * NUMERIC INPUT. PRINT SEC-* 
850 REM * TOR DISPLAY & RTN TO 370 * 
855 REM XKXKXKXXXXKKXXKXKXXXXKXXXXXX 
860 REM 

865 GRAPHICS 0:GOSUB SETSCRN:GOSUB HIL 
0:GOSUB DECHEK 

870 POKE DAUX1,SECLOW:POKE DAUK2,SECHI 
875 X=USR(START!:REM ** GO DO IT ** 

880 IF PEE K (ERRFLGI -138 THEM "GEEGB 
"J DRIVE;" _ 

885 IF PEEK (ERRFLGI THEN ? "QEEmCQ^E 

SECNUM;» ($■• j HEXREPS; "V 7 : POKE 
ERRFLG,0:GOTO PROCINP 

886 IF SECNUM=360 T HEN ? 

SB360 (S016 81»': : ? 1 :peek ( 

casbuf! : ? ■ 'tag ama jalnItw 
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*CURRENT SECTOR IS 


^CURRENT DRIVE IS = = 
*SURE ABOUT WRITE(Y/N) 


3";secnum; 
I";drive 


WRITE ABORTED** 


887 IF SECNUM=360 THEN ? PEEK(CASBUF+3 
I+PEEK(CASBUF+4)*256:GOTO PROCINP 
890 IF SECNUM<369 AND SECNUM>368 THEN 
? "i I*>44**(U:V-T4* (H:) ";SECNUM;" (S"; 
HEXREPS : "1 11 : GOTO PROCINP 
895 ? : SECNUM:" (S";HEXREP 

S;") Mil : (PEEK (T0PSEC)*256) +P 

EEK (CA5PTR)_ 

900 ? " liiiaHH.W * : PEEK (FILNUM) 

905 GOTO PROCINP 
910 REM 

915 REM XKK KKXXXXK XKKKXKKKKKKKKXKXKX 

920 ren * BQHHBBB * 

925 REM * PROCESS CMJ COMMAND TO ? * 
930 REM * SECTOR REQUESTED TO DISK.* 
935 REM * WRITE ONLY AFTER VERIFY..* 
940 REN XX XKM M XKKKKXXXKXXKKXXKXXKXKK 
945 REM 

950 POKE BACKGND,RED:POKE CHAR,WHITE:P 
OKE BORDER,MHITE 
955 X=USR(MESAGE) 

960 GOSUB SCROLL:GOSUB HILO:GOSUB DECH 
EX 

965 ? _._ 

" (S";HEXREPS:")' 

970 ? 

975 ? 

ANS 

980 IF AN$<)"Y» A MD ANSO"N" THEN ? ■■ i 
jHlMI " : GOTO 1025 
985 IF ANS="N" THEN ? 

M :GOTO 1025 
990 POKE DCOMM,PSEC:POKE MFLAG,1 
995 X=USR (START) 

1000 IF PEE K CERRFLGI-138 THEN ? "GUSH 
"jDRIVE;" DidJaB:riiai:ldMjorrann ":GOTO 10 
20 

1005 IF PEEK (ERRFLGJ=144 THEN * 

pd.Mriaim ";drive; h 
[3" :GOTO 1020 
1010 IF PEEK (ERRFLG) THEN ? " 33333 ~ " 
;PEEK (ER RFLG) -Q":GOTO 1020 
1015 ? i SECNUM: 

1028 POKE ERRFLG,0:POKE DCOMM,GSEC:POK 
E MFLAG,0 

1025 POKE CHAR,BLACK:POKE BACKGND,GREE 
N 

1030 AN$="" 

1035 RETURN 
104O REM 

1045 REM XX XXKKKKKX KKXKXXKXXKXXKKKKXK 

1050 rem * 33 IECEEH * 

1055 REM * PROCESS (C) COMMAND TO * 
1060 REM * CHANGE BYTES OF SECTOR IN* 

1065 REM * CURRENT BUFFER. * 

1070 REM KKKXXKKXXXXXKKKXKXXXKKXKXKKX 
1075 REM 

1080 REM *** CHANGE BYTES ROUTINE *** 
1085 POKE BACKGND,YELLOM:POKE CHAR,BLA 
CK:POKE BORDER,MHITE 
109O X=USR(MESAGE) 

1095 GOSUB SCROLL 

1100 ? "QMOVE CURSOR TO BYTES,CHANGE,H 
IT RETURN" 

1105 INPUT AS 

1110 IF AS=“" OR LENCAS) < 26 THEN ? " ill 
n=frt:1—Cl : : goto 1135 
1115 POKE BACKGND.YELLOW 
1120 LINBUF=ADR(AS) 

1125 X=USR(CHNGBY,LINBUF) 

1130 ? 


DISK 

IS WRITE PROTECTED! 


NTINUEK* 


DATA CHANGED—HIT RETURN TO CO 


1135 
1140 
1145 
1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 
6««r 


INPUT AS 

POKE BACKGND,GREEN 

RETURN 

REM 

REM KK XXXKXK XXKXXKXXKKKKKXK K XXXK 
REM * liKUm X 

REM * PROCESS (H) COMMAND BY * 
REM * DISPLAYING THE COMMANDS * 
REM * AVAILABLE IN DISK-TOOL...* 
REM XXXXXXXXKKMXXXKXMKXKMXXKXKXX 
REM 

GRAPHICS 1; POKE BA CKGND , GRE EN : ? It 

':? tt6;" Pina Q 



1200 ? tt6; "Q-READ NEXT SECTOR":? 116 ;"B 
= READ PREVIOUS SEC":? tt6;"EXCHANGE SEC 
BYTES" 

1205 ? tt6;"G=DIRECT0RY LIST":? lt6;"ffl=H 
ELP" 

1210 ? tt8 j "(1= MODIFY LINKS":? It6; "|-|=PRI 
NT SCREEN" 

1215 ? tt6j"ffl=REC0VER A FILE":? tt6;"0=S 
ET DRIVE It" 

1220 ? tt6j"B=TRACE FILE CHAIN":? tt6;"E 
-WRITE A SECTOR" 

1225 ? "*":GOTO PROCINP 
1230 REM 

1235 REM XX XXKKXXX XXXXXXXXXXXXXXXXXXX 
1240 REM * * 

1245 REM * HEX-DEC CONVERSION 5UBRTN* 
1250 REM * HEX INPUT FROM AS IN THE * 
1255 REM * FORM SXXXX. OUTPUT DEC AS* 
1260 REM KKXKXXXKXXXKXXKXKKXKKKXKXXXK 
1265 REM 
1270 N=0 

1275 FOR 1=2 TO LEN(AS) 

1280 IF ASCI,I)<"0" THEN GOTO 1310 
1285 IF AS(1,1)<="9" THEN N=N*16+VAL(A 
S(I,I)):GOTO 1300 

1290 IF AS(1,1)<"A” OR AS(1,1)>"F" THE 
N 1310 

1295 N=N*16+ASC(AS(I,I))-ASC("A")+10 
1300 NEXT I 

1385 AS= STRS(N):RETURN _ 

1310 ? ■ * >«:l»t■:■«>»: j-i.- n:i*(4 ■: pop :go 

TO PROCINP 
1315 REM 

1320 REM XX KKKKXKK KXKKKXXKXKKKXXKXXKX 

1325 rem * aggnaa * 

1330 REM * DEC-HEX CONVERSION SUBRTN* 

1335 REM * HI/LO OF NUMBER IN SECLOW* 

1340 REM * & 5ECHI. HEX OUTPUT IN * 

1345 REM * HEXREPS. * 

1350 REM xxxxxxxx - xxxxxxxxxxxxxxxxxxxx 
1355 REM 

1360 TSECH=SECHI:SECHI=INT(SECHI/16)+1 
:HEXREPS(1,1)=HEXTABS(SECHI,SECHI) 

1365 SECHI=(TSECH-(5ECHI-1)*16)+1:HEXR 
EPS(2,2)=HEXTABS (SECHI,SECHI):SECHI = TS 
ECH 

1370 TSECL=SECLOW:SECLOW=INT(SECLOW/16 
)+1:HEXREPS(3,3)=HEXTABS(SECLOW,SECLOW 

1375 SECLOW=(T5ECL-(SECL0W-1)*16)+1:HE 
XREPS(4,4)=HEXTABS(SECLOW,SECLOW):SECL 
OW=TSECL:RETURN 
1380 REM 

1385 REM KXKKKKXX - KXKKXKXKKXXKXKXKKKKK 
1390 REM * IJtillH * 

1395 REM * PROCESS (D) COMMAND TO * 

1400 REM * DISPLAY FORMATTED DISK * 

1405 REM * DIRECTORY/FILE INFO.. * 

1410 REM X X * XKXXXXXXXXKXXKKKXXXXKKXXX 
1415 REM 

1420 POKE DAUX2,1: POKE DAUX1,105:REM * 

* SET SECTOR 361 FOR READ 

1425 SECNUM=361 

1430 GRAPHICS 0:G0SUB SETSCRN 

1435 ? "*H^SF: IWWTMi 

in imf aor ■ 

1440 X=U5R(REDIR) 

1445 SECNUM=SECNUM+1 _ 

1450 ? :? " ITTli RETURN HMlfilJ I + Q 


0 CONT.** 


1455 INPUT ANS 

1460 IF ANS="+" AND SECNUM<365 THEN 14 
35 

1465 ANS="":POKE FINUMB,0 
1470 ? "K 
1475 INPUT AS 
1480 IF AS="" THEN GOTO 1490 
1485 IF AS(1,1)="M" OR AS(1.1)="C" THE 
n ? ■* : got 

0 1470 

1490 GOTO PROCINP+5 
1495 REM 

1500 REM XK KXKXKKKK KKXKKKKKKKXKKKXKKK 
1505 REM * IJJ.'H.iB * 

1510 REM * PROCESS (P) COMMAND TO ? * 
1515 REM * THE SCREEN TO PRINTER.. * 
1520 REM XXXXXXXKXXXXXXXXXKXKKKXXKKKK 
1525 REM 


COMMAND OR SECTOR NUMBER 
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1530 IF 


N CONDITION* 


'► 


IMPROPER SCREE 


: LPRIHT 


PRINTING SCREEN!!! 


:POKE B 


PRINTER DOESN'T RESPOND 


JHELP) THEN 1 
: RETURN 

1535 TRAP 1605:LPRINT 
1540 ? »> 

ACKGND,TURQ 
1545 SCAND=PEEK(88)+PEEK(89)*256 
1550 REM **PRINT SCREEN TO PRINTER ** 
1555 FOR X=1 TO 19 
1560 ARPT=1 

1565 FOR Y=SCAND TO SCAND+39 

1570 A$ CARPT,ARPT)=CKRS{(ASC (" ")+PEEK 

(Y))):TENP=ASC(AS(ARPT,ARPT)) 

1575 IF TEMP>128 THEN TEW>=TEMP~128:AS 
(ARPT,ARPT)=CHRS(TEMP) 

1580 IF AS (ARPT.ARPT)<" " OR AS (ARPT,A 
RPT)>"Z" THEN A5(ARPT,ARPT)="." 

1585 ARPT=ARPT+1:NEXT Y 
1598 IF AS(20.21)-"DR" THEN GOTO 1600 
1595 LPRINT AS:SCAHD=SCAND+40:NEXT X 
1600 POKE BACKGNO,GREEN:TRAP ERTRAP:AS 
="":GOSUB 5ETDSK:RETURN 

HEP ": 


1605 ? "Hi 
GOTO 1600 
1610 REM 

1615 REM XX K KIHtM X MMI t KMXMXItMMICItXMttXMlt * 
1620 REM * laiTifiB * 

1625 REM * PROCESS (M) COMMAND TO * 
1630 REM * MODIFY LINKS OF A FILE.. * 
1635 REM ********** KXXXKXX XXXIHHHHHHtK 
1640 REM 
"N 

:lNPuUT:r 
1650 IF AS="" THEN GOTO PROCINP 
1655 IF A$(1,1)="S" THEN GOSUB HEXDEC 
1660 GOSUB CKLIN 

1665 GOSUB HILO:GOSUB SETD5K:GOSUB DEC 
HEX 

1670 X=USR(ENTLNK) 

1675 IF PEE K(ERRF LG) THEN GOTO 885 
1680 ? :? "IjUVjfiSB*'; PEEK (FILNUM) : " :IIB3 
(PEEK(T0PSEC)*256)+PEEK(C 

ASPTR) 

1685 ? : ? 

: INPUT AS 

1690 IF AS-"" THEN FIL=PEEK(FILNUM):GO 
TO 1705 

1695 IF AS(1,1)="S" THEN GOSUB HEXDEC 

1700 FILIAL (AS) _ 

1785 POKE (FILNUM ) ,FIL:? :? " l4:ii4;M.T4T 

: : INPUT AS 

1710 IF AS=" M THEN GOTO PROCINP 
1715 IF AS(1,1)="S" THEN GOSUB HEXDEC 
1720 IF UAL (AS)=0 THEN SECNUM=0:GOTO 1 
730 

1725 GOSUB CKLIM 

1730 GOSUB HILO:POKE (TOPSEC),SECHI:PO 
KE CASPTR,SECLOM 

1735 X-US R (NHLNK) __ 

1740 ? " fliM.'MaMU 1 ■ : : J 7 " )[T[ 3[TW3 

HlaE "; PEEK (FILNUM) " 

;(PEEK(TOPSEC)*256)+PEEK(CASPTR) 

1745 SECN1IM=PEEK (DAUX1) +PEEK (DAUX2)*25 


1645 

? . ? 


_ MODIFY SECTOR LINKS 

SECTOR TO MODIFY (HEX OR DEC) 


6 

1750 


• II 


CORRECT 


WRITE TO DISK IF CHANGES 


:? :GOTO PROCINP 

1755 REM 

1760 REM XX XXXXXXX XXXXXXXXXXXXXXXXXXX 
1765 REM * * 

1770 REM * PROCESS (T) COMMAND TO * 
1775 REH * TRACE THE SECTORS OF A * 
1780 REM * FILE FOR FILE INTEGRITY * 
1785 REM MX XXX X XXXXXXMX X XXXXMXXXXXXXX 
1798 REM 

1795 IF (HELP) THEN GRAPHICS 0:HELP=8: 
GOSUB SETSCRN 

1800 ? "UNPUT FILE NUMBER (HEX OR DEC 
)":? ">T0 U.-WM4 OR Q TO ABORT"; : INPUT 
AS 

1805 IF AS(1,1)="X" THEN GOTO PROCINP 
1810 IF AS(1,1)="S" THEN GOSUB HEXDEC 
1815 FIN=UAL(AS):STSEC=INT(FIN/8)+361: 
IF STSEC <361 O R STSEC>368 THEN ? "H333 

■*«4i:nKiaJ33a »:goto procinp 

1820 RELFI=FIN-(INT(FIN/8)*8) 

1825 IPX-(RELFI*1 6)+CASBUF 
1830 ? 


SECTOR TRACE 


SECTOR TRACE (CONT) 


1835 X=USR(TRASEC,STSEC,IDX,FIN) 

1840 IF PEEK (ERRFLG) THEN POKE ERRFLG, 
0:POKE FINUMB,0:? :GOTO PROCINP 
1845 SECLOW=PEEK(CASPTR):SECHI=PEEK(TO 
PSEC) 

1850 IF NOT PEEK(CNTIN) THEN POKE (FI 
NUMB),0:GOTO PROCINP 

1855 ? :? "0 TO CONTIN QRINT SCRN <RET 
> TO STOP"::INPUT ANS 

1860 IF ANS="" THEN POKE CNTIN,8:P0KE 
FINUMB,0:GOTO PROCINP 

1865 IF AN$-"P" THEN GOSUB PPRINT:GOTO 
1855 

1870 IF ANS <>"+" THEN POKE CNTIN,0:POK 
E FINUMB,0:GOTO ERTRAP 
1875 ? "K ) ZZZ 
1880 X=USR(TRASEC) 

1885 GOTO 1840 
1890 REM 

1895 REM XX XXXXXXXXX XXXXXXXXKKKXKXKX * 

1900 rem * HEHSEEBEB * 

1905 REM *PR0CE5S (R) COMMAND WHICH * 
1910 REM *WILL RECOUER A FILE l«ilCH * 
1915 REM *HAS BEEN DELETED * 

1920 REM XX XXXXXXXXXXXXXXXXXXXXXXXXXX 
1925 REM 

1930 IF (HELP) THEN GRAPHICS 0:HELPER: 
GOSUB 5ETSCRN 

1935 ? "Kl NPUT FI LE NUMBER (HEX OR DEC 
)":? " KTO EBEOEEB or E3 TO abort"; :INPU 
T AS 

1940 IF AS(1,1)="X" THEN GOTO PROCINP 
1945 IF AS(1,1)="S" THEN GOSUB HEXDEC 
1950 FIN=UAL(AS):STSEC=INT(FIN/8)+361: 
IF STSEC<361 O R STSEC>368 THEN ? " H=ET3 

laioDnanigaa *'=goto procinp 

1955 RELFI=FIN-(INT(FIN/8)*8) 

1960 IPX-(RELFI*1 6)+CASBUF 
1965 ? "6) iaargiiua-igaraa " 

1970 POKE RECOUR,1 

1975 X=USR(TRASEC,STSEC,IPX,FIN) 

1980 IF PEEK(ERRFLG) THEN POKE ERRFLG, 
0:P0KE RECOUR,O:? 

1985 POKE FINUMB,6:G0T0 PROCINP 
1990 REM 

1995 REM X XXXXXX - X X KXKXXKXXKXXXXXXXXXX 
2000 REM * agHuH * 

2905 REM *PR0CES5 (S) COMMAND WHICH * 
2010 REM XALLOWS USER TO CHANGE THE * 
2015 REM *WORKING DISK DRIUE NUMBER * 
2020 REM XXXXXXXXXXXXXXXXXXXXXXXXXX X X 
2025 REM 
2030 ? 

2035 ? 

? 

2O40 ? ")f 
T AS 

2045 IF AS="" THEN GOTO PROCINP 
2850 X=UAL(AS)!IF X<1 OR X>4 THEN ? ") 

: GOTO PROCINP 

2055 DRIUE-X:GOSUB SETDSK:? :GOTO PROC 
INP 




:? "> 


SET DRIUE NUMBER 
CURRENT DRIUE IS 


; DRIUE: 


INPUT NEW DRIUE (1-4) 


"; : INPU 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DA^A 532,703,450,549,210,270,538,17 

9,914 555,376,887,737,641,650,8191 

85 DATA 855,191,95,807,148,236,48,360, 

789,83,25,952,556,196,492,5833 

160 DATA 642,799,95,804,557,84,166,76, 

445,181,335,152,404,791,85,5616 

235 DATA 51,88,558,647,870,99,861,9,56 

7,106,90,792,108,543,23,5406 

310 DATA 549,551,84,322,598,212,91,95, 

797,540,800,101,564,576,764,6584 

385 DATA 572,105,110,698,738,80,820,27 

9,753,491,92,599,97,799,256,6489 

460 DATA 796,807,181,257,611,109,572,7 

43,980,552,85,856,88,361,389,7307 
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538 DATA 424,61,362,95,482,609,108,373 

,395,365,994,374,111,514,621,5804 

688 DATA 84,357,400,137,360,90,563,93, 

366,426,847,509,367,184,626,5329 

665 DATA 107,373,668,817,628,661,612,3 

84,86,240,89,559,771,812,845,7644 

735 DATA 565,98,188,784,910,950,688,99 

1,728,677,415,805,964,983,284,9862 

810 DATA 26,536,251,99,562,823,339,978 

,539,573,106,530,364,685,652,7063 

885 DATA 978,120,336,189,907,762,645,9 

3,563,577,828,1,23,567,107,6696 

958 DATA 658,444,958,166,775,385,533,4 

92,471,648,84,189,76,285,310,6474 

1025 DATA 363,280,792,279,796,756,708, 

155,505,789,292,867,212,552,369,7635 

1100 DATA 824,915,225,436,724,741,195, 

918,166,796,283,800,264,673,15,7975 

1175 DATA 989,793,296,456,964,185,508, 

512,330,541,25,284,881,459,361,7504 

1250 DATA 865,982,794,297,994,837,84,6 

74,584,216,493,52,877,295,793,8837 

1325 DATA 470,315,9,793,329,796,299,53 

6,426,321,191,292,809,777,722,7085 

1400 DATA 949,829,795,298,964,91,61,81 

0,269,786,780,811,945,326,698,9412 

1475 DATA 931,507,348,891,306,797,560, 

815,954,799,302,813,92,155,821,9091 

1550 DATA 180,399,480,825,450,851,286, 

244,375,914,459,152,294,811,801,7521 

1625 DATA 733,947,813,297,952,179,583, 

434,715,624,566,467,171,583,587,8651 

1700 DATA 309,455,178,582,39,443,613,3 

34,577,125,246,311,809,505,738,6264 

1775 DATA 704,942,821,305,807,789,738, 

575,239,679,425,775,387,130,348,8656 

1850 DATA 68,764,584,898,816,291,562,7 

54,308,825,358,230,203,398,811,7870 

1925 DATA 314,797,229,727,591,236,695, 

422,696,539,394,231,592,311,828,7602 

2000 DATA 781,208,18,230,786,289,784,2 

87,669,172,306,731,5261 


Cross Reference of Disk Tool BASIC program 


VAR LINE NUMBERS 

BACKGND 133, 623, 703, 930, 1023, 10S3, 1113, 1140 

1190, 1540, 1600 

BLACK 133, 623, 703, 1023, 1003 

BORDER 133, 703, 930, 1003 

BUFH1 133, 423 

BUFLO 133, 420 

BUFPTR 135 

CASBUF 133, 006, 087, 1023, 1960 

CASP TR 133, 093, 16B0, 1730, 1740, 1043 

CHAR 140, 623, 703, 930, 1023, 1083 

CHNGBY 140, 1123 

CKLIM 140, 820, 1660, 1723 

CH.ROLM 140, 773 

CKROLP 140, 770 

CLI0C4 140, 333 

CNT1N 140, 1030, I860, 1870 

DAU X1 140, 410, 870, 1420, 1743 

DAUX2 140, 413, 870, 1420, 1743 

DBYHI 143, 433 

DBYLO 143, 430 

DCOHM 143, 403, 990, 1020 

DECHEX 143, 863, 960, 1665 

DUNIT 143, 400 

ENTLNK 143, 1670 

ERRFLQ 143, 880, 883, 1000, 1003, 1010, 1020, 

1673, 1840, 1980 

143, 323, 623, 1600, 1870 


F1LNUM 

143, 

900, 

1680, 

1690, 1703, 1740 


F1NUMB 

130, 

1463, 

1840 

l, 1830, I860, 1870, 

1983 

GREEN 

130, 

623, 

703, 

1023, 1140, 1190, 1600 

QSEC 

130, 

403, 

1020 



HEXDEC 

130, 

813, 

1633, 

1693, 1713, 1810, 

1945 

HILO 

130, 

863, 

960, 

1663, 1730 


ME8AGE 

130, 

933, 

1090 



NWLNK 

130, 

1733 




PCHAN8E 

130, 

783 




PD 1R 

130, 

790 




PHELP 

133, 

340, 

730 



PLUSMIN 

133, 

770, 

773 



PMQD 

133, 

800 




PPRINT 

133, 

733, 

1863 



PRECOVER 

133, 

803 




PROCINP 

133, 

473, 

623, 

733, 780, 783, 883, 

887, 


890 , 

903, 

1223, 

1310, 1490, 1730, 

1803, 


1813, 

, 1840 

i 1830, 1860,1940, 1950, 

1983, 


2030, 

, 2033 



P8EC 

133, 

990 




PSET 

133, 

810 




PTRACE 

133, 

760, 

793 



PWRITE 

133, 

780 




RECOVR 

160, 

1970, 

1980 



RED 

160, 

930 




REDIR 

160, 

1440 




SCROLL 

160, 

960, 

1093 



SETD3K. 

160, 

330, 

1600, 

1663, 2033 


3ETSCRN 

160 , 

800, 

810, 

863, 1430, 1793, 1930 

START 

160, 

873, 

993 



TOPSEC 

160, 

893, 

1680, 

1730, 1740, 1843 


TRASEC 

160, 

1833, 

1880 

, 1973 


TURQ 

163, 

1340 




WFLA6 

163, 

990, 

1020 



WHITE 

163, 

703, 

930, 

1083 


YELLOW 

163, 

1083, 

1113 



DRIVE 

233, 

400, 

743, 

880. 970. 1000. 1005. 


2033, 

, 2033 



HELP 

233, 

750, 

765, 

1330, 1793, 1930 


SECHI 

233, 

4 13, 

313, 

870, 1360, 1363, 17 

30. 


1843 





SECLOW 

233, 

410, 

313, 

870, 1370, 1373, 1730. 


1843 





SECNUM 

233, 

473, 

313, 

330. 390. 770. 773. 

883. 


886, 

887, 

890, 

8S3, "?63, 1013. 1423. 


1443, 

1460 

, 1720, 1743 


At 

285, 

473, 

743, 

730, 733, 760, 770, 

773, 


780, 

783, 

790, 

793, 800. 80S, 810. 

813, 


1 103 

, 1110, 1120, 1133,1273, 1280 

, 1285, 


1290,1473, 1480, 1483. 1370, 1373,1380 

1390, 1393, 1600, 1643, 1630, 1633. 1683. 
1690, 1693, 1700. 1703, 1710, 1713, 1720* 
1800, 1803, 1810, 1813, 1933,1940 1943* 

1930,2040, 2043, 2030 

AN* 283, 973, 980, 983, 1030, 1433, 1460, 

1463, 1833, 1860, 1863, 1870 

HEXREP* 283, 883, 890, 895, 965, 1360, 1363, 

1370. 1373 

HEXTAB* 283, 290, 1360, 1363, 1370, 1373 

X 333, 873, 933, 993, 1090, 1123, 1440, 

1333, 1393, 1670, 1733, 1833, 1880, 


LINBUP 

1973, 
1 120, 

2030, 
1 123 

2033 



N 

1270, 

1283, 

1 293, 

1303 


I 

1273, 

1280, 

1283, 

1290, 

1293 

TSECH 

1360, 

1363 




TSECL 

1 370, 

1373 




SCAND 

1343, 

1363, 

1 393 



ARPT 

1360, 

1370, 

1373, 

1380, 

1383 

Y 

1363, 

1370, 

1383 




1370, 1373 


ERTRAP 


TEMP 
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FIL 

16 90 , 

1700, 

1703 


FIN 

1813, 

1820, 

1833, 

1930 

ST8EC 

1813, 

1833, 

1030, 

1973 

RELFI 

1820, 

1823, 

1933, 

1960 

IDX 

1823, 

1833, 

1960, 

1973 

• OF VARIABLES- 

82 





Disk Tool Memory Map 
(after fully loaded) 


10420 

10073 

7420 

1792 

1536 


256 

0 


Basic code to Mem. top 
followed by O.S./hardware area 

Free patch area for modifications 

Dsk Tool ML Code 

Area 

Pg. 7'1C contain DOS 2.0S 

FMS Code &. Disk Drive Buffers 

Pg.6 Autorun.sys init. code &. IRQ handler 

Pg. 4 & 5' not used by 

Dsk Tool 

cassette buffer (128 bytes) is used 

not used by Dsk Tool 

Pg. 3 serial bus handler table is used 

Pg. 2 not used by Dsk Tool 

Pg. 1 stack area 

$CD and $CE are only Pg. 0 
Locations used 


$FFFF 

$28B4MEMLO 

$2759 

$1CFC 

$0700 

$0600 

047F 

$03F0 

1030C 

$0300 

$0200 

$0100 

0 


Constant Description List 
DSKTOOL.PT2 


ID 

NAME 

VAL 

DESCRIPTION 

1 

BACKGND 

710 

Background color register address (REGISTER 2) 


BLACK 

0 

Color value for black 

1 

BORDER 

712 

Border color register address (REGISTER 4) 


r—BUFHI 

773 

Address of Disk buffer Pointer MSB 

Z 

1—BUFLO 

772 

Address of Disk buffer Pointer LSB 


BUFPTR 

126 

Value set to 126. Byte 126 of CASBUF contains the LSB of the next sector number 
of the file being examined. 


CASBUF 

1021 

Pointer to the start of the cassette buffer. 


CASPTR 

CASBUF+CASPTR Points to the absolute address in CASBUF of the LSB of the next sector 
number for the current file. 

l 

CHAR 

709 

Character color register address (REGISTER 0) 

* 

CHNGBY 

7729 

Absolute address to beginning of Change Byte ML code. 


CKLIM 

475 

Line number to Basic routine. 


CKROLM 

590 

Line number to Basic routine. 


CKROLP 

550 

Line number to Basic routine. 

* 

CLIOC4 

9023 

Absolute address to ML routine which sets up IOCB4 for ML output of messages etc. 

* 

CNTIN 

8958 

Absolute address to continue flag. Tells ML code if we are continuing a directory 
dump or sector trace. 


l—DAUXl 

778 

Address to disk AUX value LSB. 

J 

L-DAUX2 

779 

Address to disk AUX value MSB. 




VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 97 


pDBYHI 

4 1 

777 

Ldbylo 

776 

DCOMM 

770 

DECHEX 

1360 

DUNIT 

769 

* ENTLNK 

8180 

* ERRFLG 

7550 



ERTRAP 

625 

* 

FILNUM 

7556 

* 

FINUMB 

8179 


GREEN 

214 


GSEC 

82 


HEXDEC 

1275 


HILO 

515 

* 

MESAGE 

7430 

* 

NWLNK 

8194 


PCHANGE 

1085 


PDIR 

1420 


PHELP 

1190 


PLUSMIN 

865 


PMOD 

1645 


PPRINT 

1530 


PRECOVER 

1930 


PROCINP 

745 


PSEC 

87 


PSET 

2030 


PTRACE 

1795 


PWRITE 

950 

* 

RECOVR 

9077 


RED 

64 

* 

REDIR 

7823 


SCROLL 

660 


SETDSK 

400 


SETSCRN 

705 


START 

7420 

* 

TOPSEC 

7555 

* 

TRASEC 

' 8224 


TURQ. 

186 

* 

WFLAG 

7554 


WHITE 

10 


YELLOW 

26 


Address to disk byte count MSB. 

Address to disk byte count LSB. 

Address to disk command byte location. Commands used by DISK TOOL are PUT 
SETOR with verify and GET SECTOR. 

Line number to Basic routine. 

Address to disk unit number. Location contains current drive being accessed. 
Absolute address to the Change links ML code. 

Absolute address to the error flag indicator in ML code. 

Flag is set by ML code to indicate any errors. 

Basic checks the flag to determine appropriate message. 

Line number to Basic routine. 

Absolute address to ML location. Location contains the file number to which the 
current sector belongs. 

Absolute address to ML location. Location contains the directory file number of a 
file $(T$3F. 

Value for the color green. 

GET SECTOR disk command value. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address to ML code which displays items in CASBUF in HEX/ATASCI 
format. 

Absolute address to ML code which changes links during a modify link operation. 
Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Disk command value for a PUT SECTOR with verify. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address in ML code of recover flag. Used by ML code to distinguish a 
recover file from a trace file. 

Value for the color red. 

Absolute address in ML code to the read directory function. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address to the start of DISK TOOL ML code. 

Absolute address to ML location. Location contains the MSB of the sector number 
currently being examined. 

Absolute address to the start of the TRACE SECTOR ML code. 

Value for the color turquoise. 

Absolute address to ML Write flag location. Informs the ML code if the next opera¬ 
tion is a read or write. l=write 
Value for the color white. 

Value for the color yellow. 


ID EXPLANATIONS 

1= References hold true for Graphics 0. Other modes have different meanings. If confusion exists, see color register 
assignment table in the ATARI BASIC Reference Manual. 



PAGE 98 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


2= These locations point to an area in memory where we want the data on a disk sector to be placed after a read. On a 
disk write, these locations point to the area of memory which contains the data to be written. Disk Tool sets these 
pointers to the cassette buffer since it is free when using the disk drive. 

3= Locations contain sector number (LSB/MSB format) of sector to read or write. 

4= Locations contain number of bytes (LSB/MSB format) to be read or written. 

*= Point to absolute locations in the ML code. In most cases the Basic constant name is the same as the label name in 
the assembly source code. Exceptions are CNTIN for CONTIN and NWLNK for NEWLNK due to BASIC not 
accepting CONTIN and NEWLNK. I could have used the LET statement but. . .NAAHH!!! 


ARPT 

DRIVE 

FIL 

FIN 

HELP 

IDX 

LINBUF 

RELFI 

SCAND 

SECHI 

SECLOW 

SECNUM 

STSEC 

TEMP 

TSECH 

TSECL 

X 

Y 


VARIABLE DESCRIPTION LIST 

Pointer to each item in A$ 

Current Disk Drive being used. 

Temporary file number variable. 

File number input for TRACE or RECOVER. 

Help flag. l=Help menu is up. 0=Help menu not up. Prevents printing the help screen since it 
is in the wrong graphics mode for the Print routine. 

Absolute index to start of file entry in CASBUF. 

Pointer to A$ string in memory. 

Relative file number of an entry in the directory. 

Pointer to address of the start of the screen. 

Hi byte of SECNUM. 

Low byte of SECNUM. 

Current sector number being read or written. 

Directory start sector number of file being requested. 

Value of ASCII character on the screen. 

Temporary value of SECHI for DEC-HEX conversion. 

Temporary value of SECLOW for DEC-HEX conversion. 

MISC variable. 

MISC variable. 


STRING CONSTANT LIST 


NAME 

A$ 

AN$ 

HEXREP$ 

HEXTAB$ 


DESCRIPTION 

Input for COMMANDS, NUMBERS (HEX or DECIMAL) and CHANGE BYTE line. 
Input string for various answers to prompts. 

String which holds the hex value of a converted decimal value. 

Table of hex string values used by the DEC-HEX routine to convert a decimal number string to it 
hex equivalent. 


HOME UTILITIES 
AND EDUCATION 
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HOME ENERGY 
CONSUMPTION ANALYSIS 


16K Cassette 32K Disk 


by Joe E. Harb, Jr. 


"Thermowatts” and "Kilowatts” are ATARI 
BASIC programs which require 16K RAM with cas¬ 
sette and 32K RAM with disk. "Thermowatts” 
analyzes yearly, monthly, and daily natural gas and 
electricity consumption and cost for homes which 
use both utilities. "Kilowatts” provides similar anal¬ 
ysis for all-electric homes. 

When we moved into our present house several 
years ago, I planned to make a number of energy con¬ 
servation modifications to the house. I decided that I 
would like to use my ATARI 800 to determine what 
impact those modifications had on our energy con¬ 
sumption and costs. That led to the writing of "Kilo¬ 
watts” which 1 subsequently rewrote as "Thermo¬ 
watts,” using natural gas data which I still had on 
hand from my previous house. Both programs make 
provisions for yearly and monthly temperature fluc¬ 
tuations. Statistics generated by both programs can 
be displayed on the screen or printed to a line print¬ 
er. 

Monthly and yearly temperature variations are 
taken into consideration by analyzing kilowatt/ 
therm consumption per cooling/heating degree day, 
as appropriate. A heating degree day is each degree 
that the average temperature drops below 65 degrees 
F on a given day. A cooling degree day is each degree 
above 65 degrees F. The total number of cooling and 
heating degree days in each month can be obtained 
from your local weather bureau (National Oceanic 
and Atmospheric Administration — NOAA). Our 
local NOAA office at Baltimore Washington Inter¬ 
national Airport kindly provided me with several 
years of monthly degree day information over the 
telephone. 

In a given month, a minimum of 100 cooling 
degree days is required before the programs will cal¬ 
culate cooling degree day consumption for that 
month. A minimum of 200 heating degree days is 
required for heating degree day analysis. This was 
done because in months when the number of heating 
or cooling days is below the threshold, energy use for 


heating or cooling is so low that the data becomes 
heavily biased by other energy use. This bias makes it 
seem that consumption per degree day is abnormally 
high. To change the threshold for cooling degree 
days, change the value of MINCD in line 100 of 
Kilowatts and 110 of Thermowatts. To change the 
threshold of heating degree days, change the value of 
MINHD on the same line. 

In order to further minimize distortion by elec¬ 
tricity consumption for uses other than heating and 
cooling, both programs subtract 400 kilowatts from 
each month’s total electricity use before computing 
consumption per degree day. (This subtraction is not 
performed in computing any other statistics.) The 
variable used in the subtraction is FCTR, also in Line 
100/110. It can be changed if you feel your non¬ 
heating/cooling electricity use is higher or lower. 

All REM statements can be eliminated from both 
programs without, requiring any line number 
changes. Additionally, if you feel the explanation of 
DATA statements given in the following paragraph is 
adequate, you can eliminate the instruction sub¬ 
routine (Lines 6999-7190 in both programs, 2050 in 
"Kilowatts,” and 2090 in "Thermowatts”). If you 
do not have a printer, you can eliminate the printer 
subroutines (Lines 2040 and 5999-6880 in "Kilo¬ 
watts” and 2040, 2080 and 5999-6860 in "Thermo- 
watts”). 

One DATA line is required for each month of 
data. DATA lines must be numbered in increments 
of 1, beginning with Line 1000, i.e., 

1008 DATA JAN,79,1329,29,56.19,30,29.88,984,0 

1001 DATA FEB,79,1426,28,60.44,32,31.44,1100,0 

1002 DATA MAR,79,520,31,50.98,11,20.33,520,15 

DATA statements must contain: month (first three 
letters); year (last two digits); number of kilowatts 
used; number of days in billing period; cost of elec¬ 
tricity (paid on time and including fuel surcharge); 
number of therms; cost of natural gas; heating degree 
days; and cooling degree days. The number of 
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therms and cost of natural gas are not used in "Kilo¬ 
watts.” All of the required information except heat¬ 
ing and cooling degree days can be obtained from 
utility bills. As explained above, the information on 
heating and cooling degree days can be obtained 
from your local NOAA office. 

If you have been looking for a relatively quick and 
easy way of neatly aligning columns of figures, par¬ 
ticularly those with decimal fractions, you might 
want to consider using the technique I employed in 
several subroutines of both programs, for example in 
Lines 3170-3190. It can be done in four easy steps: 

1. Decide the rightmost column for displaying a 
particular set of figures. Then add 1 to that value. In 
subroutine 3000, I wanted the last digit of the vari¬ 
able X to be printed in column 11. I then added 1 to 
that number, for a total of 12. If you are aligning 
figures with decimal fractions, use the column where 
the decimal point is to be printed, and do not add 1. 

2. Measure the length of the variable by convert¬ 
ing it to a string and using the LEN function. In Line 
3170, LEN(STR$(1NT(X))) means calculate the 
length (LEN) of the variable X after converting it to 
an integer (INT) and then to a string (STR$). The 
variable must be converted to a string because the 
LEN function can only measure the length of string 
variables. For this measurement, it is important to 
convert a numeric variable to an integer when the 
variable includes a decimal fraction. This is neces¬ 
sary because the ATARI eliminates final zeros after 
the decimal point. Thus, 3.50 is displayed 3.5. Con¬ 
sequently, if you wished to align the numbers 3.5 and 
4.27 and if you measured the whole length of the 
variable, the columnar alignment of the numbers 
would be: 

3.5 

4.27 

3. Pick a variable name for the column where 
printing of the display variable is to begin. (I used 
CL1 in the example.) Then, use the algorithm in this 
paragraph to calculate the column where printing is 
to begin. The algorithm subtracts the length of the 
integer portion of the string from the value calcu¬ 
lated in step 1. In other words, the column where 
printing is to begin equals the length of the integer 
portion of the variable subtracted from the column 
where printing is to end. That is expressed in BASIC 
as CL1 = 12-LEN(STR$(INT(X))). This means that 
the first digit of the variable X will be displayed at 
screen column 12 minus the length of the integer X. 

4. Position the cursor at the column and row 
where printing is to begin. This is done with the 
POSITION statement. In Line 3180, the cursor is 
positioned at column CLl,row PEEK(84). 
PEEK(84) is the memory location of the current 
cursor row. Finally, use the PRINT statement to dis¬ 
play the variable on the screen. Once you get used to 
this process, it can be done fairly fast. Of course, it 


can be further simplified by performing the whole 
operation at one time: 

POSITION 12-LEN(5TR$(INT(X))),PEEK(84):?X 

In "Thermowatts,” each of the subroutines for the 
menu options does double duty. Each subroutine 
computes either gas or electricity statistics, depend¬ 
ing on what is requested. The software accomplishes 
this by setting the variable T toa"0” or a "1” during 
menu selection. A "0” indicates that electricity data 
is to be processed, and a "1” indicates natural gas 
data. Each subroutine has statements which check 
the value of T and then select the appropriate data or 
print the proper column headings. For instance, in 
Lines 3120-3130, if T=0, the variable DD (degree 
days) = CD (cooling degree days) because electric¬ 
ity powers air conditioning equipment. If T=l, 
DD=HD (heating degree days) because natural gas 
provides heat. 

During operation of these programs, do not 
depress the return key at any time when responding 
to a screen prompt. Simply type the letter(s) or 
numbers desired for input. The GET statement will 
determine which key(s) you depressed. In order to 
access the keyboard, a channel to the keyboard was 
opened in Line 70. 


Variables used in Kilowatts and Thermowatts. 

A: Used with GET to determine last key depressed 
on keyboard. 

Al$: Used only in gas and electricity program. 
Represents variations of the words "therm” or 
"kilowatts” in column headings onscreen or printer. 
Allows one subroutine to print headings for gas or 
electricity. 

ANET: Used to represent electricty cost (NET) or 
gas cost (GNET) whenever single subroutine must 
calculate either gas or electricity statistics. 

AVG: Per kilowatt or per therm cost. 

B: Use with A when more than one key input from 
keyboard is required. 

C: Used with A & B when three-key input 
required from keyboard. 

CAVG: Average monthly consumption of 
kilowatts per degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CD: Cooling degree days in a given month. 

CDAVG: Average annual consumption of 
kilowatts per cooling degree day. Used only in sub¬ 
routine 6000 of Kilowatts because both cooling and 
heating degree day information are analyzed and 
printed at the same time. In Thermowatts, this is not 
necessary because there is so much data that separate 
printouts are required for cooling and heating degree 
day consumption. Consequently, a single variable 
DDAVG can perform double duty. 

CDDIV: Total number of Kilowatts used when 
computing annual average consumption of Kilowatts 
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per cooling degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CDTOT: Total number of cooling days per annum. 
Used only in subroutine 6000 of Kilowatts. See 
explanation under CDAVG. 

CL1: (Column 1); Column where printing of spe¬ 
cified data begins. Used to right-justify screen 
display. 

CL2: (Column 2); Used with CL1 when more 
than 1 column cannot be right-justified in some 
other way. 

CL3: (Column 3); Used with CL1 and CL2 when 
more than two columns cannot be right-justified in 
some other way. 

CL4: (Column 4); Used with CL1, CL2 and CL3 
when more than three columns cannot be right- 
justified in some other way. 

COST: Total annual cost of gas or electricity. 

DAYS: Number of days during billing period. 

DD: Used to represent either cooling or heating 
degree days in subroutines where either can be used. 

DDAVG: Average annual use of Kilowatts or 
therms per cooling or heating degree day. 

DDN$: Used in subroutines 3000, 5000, and 6000 
to represent words "HEAT” or "COOL” in column 
headings, depending on whether user has requested 
cooling or heating degree day information. 

DDT: Total number of heating/cooling degree 
days in a given year. 

DIV: Total number of energy units used when 
computing annual average consumption per degree 
day. Used in subroutine 5000 of Thermowatts and 
subroutines 5000 and 6000 of Kilowatts. 

FCTR: Estimated minimum amount of electricity 
used monthly for uses other than heating or cooling. 
Subtracted from UNITS before computing con¬ 
sumption per degree day. Can be raised or lowered if 
estimated minimum is different. 

GNET: Cost of gas without late charge. 

GUNITS: Therms of gas used during billing 
period. 

HAVG: Average monthly consumption of 
kilowatts per heating degree day. Used only in sub¬ 
routine 600 of Kilowatts. See explanation under 
CDAVG. 

HDDIV: Total number of kilowatts used when 
computing average annual consumption of kilowatts 
per heating degree day. Used only in subroutine 600 
of Kilowatts. See explanation under CDAVG. 

HDTOT: Total number of heating degree days per 
annum. Used only in subroutine 6000 of Kilowatts. 
See explanation of under CDAVG. 

HIYR: High year in data base. 

HL: No. of lines to be printed on each page. 

K$: Month for which data requested in menu 
options A, B, E, and F. 

KPD: Average number of kilowatts or therms per 
degree day. 


KPD$: Used to represent either variable KPD or 
letters "N/A” when printing out results of 
kilowatts/therms per degree day computation. 

LINE: Last line of DATA. 

LOYR: Lowest year of data in data base 

M$: Month of data contained in DATA line. 

MINCD: Minimum number of cooling degree 
days necessary for computing electricity consump¬ 
tion per cooling degree day. 

MINHD: Minimum number of heating degree 
days necessary for computing gas/electricty 
consumption per degree day. 

NET: Cost of electricity without late charge. 

NR: Used to calculate number of months in data 
base. 

PRNT$: One PRNT$ string is created for each line 
of data to be printed with the line printer in sub¬ 
routine 6000. Allows data to be aligned easily in 
columns without using TAB functions which vary 
from printer to printer. 

R$: Represents month in subroutine 6460/6570 
to compare same month of different years. 

SET: Sets flag when high line of page print reached 
during loop. 

T: A flag. In Thermowatts, it is set during menu 
selection. It is used later in subroutines to identify 
whether gas or electricity data is to be processed. In 
Kilowatts, it is set at beginning of subroutines 3000 
and 5000 to identify whether user has requested 
information on consumption per cooling or heating 
degree day. This is unnecessary in Thermowatts 
because the choice of desired information is implied 
by menu selection of electricty or natural gas data. 

TIME: Last line printed on printer. 

UNITS: Kilowatts used during billing period. 

UP: Average daily kilowatt or therm consump¬ 
tion. 

USE: Total annual consumption of gas or 
electricity. 

Y: Year of data on DATA line. 

YR: Year of data being processed. 

Z: Index variable for loops, i.e., keeps track of no. 
of times loop has occurred. □ 


Thermowatts 

-* "R":P0KE 82,0 
28 ■* " THERMOWATTS" 

38 " GAS * ELECTRICITY" 

48 •> " ANALYSIS PROGRAM" : 

58 ♦ " BY JOE HARB": "* 

68 ■* :? "DURING OPERATION OF THIS PROG 
RAH, DO NOTDEPRESS RETURN KEY AFTER TY 
PTNG ANSWERS TO PROMPTS" 

70 OPEN *tl,4,8,"K: a, :REM OPEN KEYBOARD 
TO GET INPUTS WHEN GET STATEMENT IS US 
ED THROUGHOUT PROGRAM 

80 ? :? "DEPRESS ANY KEY TO CONTINUE." 
:GET Ml, A : ? "N" 

180 DIM AlS{9J,A2SC6J,DDN$<4),MSC3J ,K$ 
(3),KPD$(6>,PRNTSC65),R$C3) 

110 MINCD=100:MINHD=2O0:FCTR=400:REM M 
INCD=MINIMUM COOLING DAYS NECESSARY FO 
RCOMPUTATION 
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120 REM 01$ * 02$ ORE USED TO PRINT VO 
RIOTIONS OF THE WORDS KW0TTS OR THERHS 
SO ONE SUBROUTINE CON BE USED FOR 
130 REN ELECTRICITY OR GOS COMPUT0TION 
200 REM COLCULOTE: TOTAL MONTHS OF DOT 
0 (NR); LOW YEOR OF DOTO (LOVR); OND H 
IGH YEOR OF DOTO (HIYR) 

210 NR—0 

220 REOD M$ f Y,UNITS,DOYS.NET,GUNITS,GN 
ET,HD,CD 

230 REM M$=MONTH, Y=YE0P, UNITS=KILOWO 
TTS USED & GUNITS=GOS THERM USED IN BI 
LLING PERIOD 

240 REM DOVS-NR. OF DOYS IN BILLING PE 
RTOD 

250 REM NET-COST OF ELECTRICITY WHEN B 
ILL POID ON TINE, GNFT-COST OF GOS POI 
D ON TIME 

260 REM COLCULOTE NR. OF MONTHS OF INF 
0 IN DOTO BOSE CNR), HIGH YEOR OF DOTOC 
HIYR), & LOW YEOR OF DOTO(LOYR) 

270 LOYR=Y:RESTORF 

280 REOD M$,Y, UNITS, DOYS, NET, GliNITS.GN 
ET,HD,CD 

280 IF M$="END" THEN RESTORE :GOTO 200 
0 

300 NR=NR+I :HIYR=Y 
310 GOTO 280 

488 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS 0, B, E, F; THEN CLEOR INPIJ 
T QUESTIONS FROM SCREEN TO ALLOW 
488 REM DISPLAY OF ADDITIONAL DOTO 
500 •> "TYPE FIRST THREE LETTERS OF MON 
TH YOU MONT . 11 : GET ttl,0;GET 111, B: GET 
ttl.C 

510 REM NEXT LINE CONVERTS OTOSCI VALIJ 
ES TYPED ON KEYBOARD TO 0 STRING 
520 K$=CHR$(0) !K$(LEN(K$)+1)= CHR$ CB) !K 
$CLFN(K$)+J)=CHR$(C) :GOSIIB 530:RFTURN 
530 POKE 84, PEEK C84)-2 : FOR 7=0 TO !;■» 


■': NEXT 7 : REM 38 SPOCFS 
540 POKE 84,PEEK(84)-2:RETURN 

1000 DOTO JON,78,624,16,26.20,51,36.18 
,884,0 

1001 DOTO FEB,78,602,31,25.88,60,42.40 

, 1100,0 

1002 DOTO MAR,78,536,28,21.65,55,40.61 
,520,15 

1003 DOTO OPR,78,454,30,18.80,48,35.20 
,354,4 

1004 DOTO MAY,78,527,32,27.81,40,31.55 
,75,72 

1005 DOTO JUN,78,768,28,38.46,33,22.75 
,6,183 

1006 DOTO JUL,78,1281,30,55.65,10,8.04 
,2,348 

1807 DOTO OUG,78,681,28,36.45,8,8,50,3 
,341 

1008 DOTO SEP,78,1242,37,52.16,12,14.2 
fi 77 1 4 

1008 DOTO OCT,78,571,30,24.43,20,20.11 
■311,28 

1010 DOTO NOV,78,686,32,27.82,32,25.67 
,425,1 

1011 DOTO DEC,78,688,31,26.75,48,40.03 
,757,0 

1012 DOTO JON,80,618,28,24.45,53,38.88 
,862,0 

1013 DOTO FEB,80,527,32,20.87,57,45.88 
,867,0 

1014 DOTO MAR,80,520,28,21.41,50,41.08 
,723,0 

1015 DOTO OPR,80,521,30,24.64,38,23.05 
,273,0 

1016 DOTO MOV,80,581,32,34.82,22,18.87 
,74,87 

1017 DATA JUN,80,738,28,37.88,16,10.48 
,6,203 

1018 DOTO JUL,80,1603,30,88.70,11,7.43 
,0,415 

1018 DOTO OUG,80,838,28,53.52,8,6.66,0 
,431 

1020 DOTO SEP,80,1530,32,74.26,15,10.7 
7,20,245 

1021 DOTO OCT,80,588,30,30.45,28,22.84 
,311,17 


1022 DOTO NOV,80,680,33,30.21,33,27.64 
,628,0 

1023 DOTO DEC,80,770,31,33.04,41,34.48 
808 0 

1624'DOTO JON,81,642,28,28.85,58,53,37 
,1145,0 

1888 DOTO END,888,0,0,0,0,0,0,0 

1888 REM MENU SUBROUTINE 

2000 ? "THIS PROGROM ALLOWS THE FOLLOW 


ING 

2010 


SELECTIONS:":? 

0. TOTAL MONTHLY OND OVER 


OGE DOILY KILOWATT USE* 


202O ? " 


OGE DOILY KILOWATT COST" 


B. TOTAL MONTHLY OND OVER 


2030 ? 
USE OND 
2040 ? " 
ICO! USE 
2050 ? " 


C. 
COST" 

D. 
DATA" 

E. 


OGE DAILY GAS THERM USE" 


TOTAL ANNUAL KILOMOTT 
PRINTOUT OF ALL ELECTR 
TOTAL MONTHLY AND OVER 


2060 ? 


OGE DOILY THERM COST* 


F. TOTAL MONTHLY AND OVER 


2070 ? " 
AND COST" 
2080 ? " 

E DATA" 
2080 ? " 

S" 

2100 * " 


G. TOTAL ANNUAL THERM USE 

H. PRINTOUT OF ALL GOS US 

I. DATA INPUT INSTRUCTION 


J. 


EXIT PROGROM" 

2110 REM GET IS USED TO DETERMINE LETT 
ER TYPED ON KEY BOARD; 0=AT0SCI UOLIIE 
OF LETTER TYPED 

2120 ? "TYPE LETTER OF OPTION YOU WANT 
":GET HI,A:? "5" 

2130 T=0:IF 0=65 THEN 3000:REM T IS FL 
OG TO TELL LATER SUBROUTINES WHETHER G 
OS OR ELECTRICITY ANALYSIS REQUESTED 
2140 IF 0=66 THEN 400O 

2150 IF 0=67 THEN 5000 

2160 IF A=68 THEN OPEN #4,8,0,"P:":GOT 

0 6000:REM OPEN CHANNEL TO PRINTER 
2170 T=1:IF 0=68 THEN 3000 
2180 IF 0=70 THEN 4000 

2180 IF 0=71 THEN 5000 

2200 IF 0=72 THEN OPEN tU ,8,0,"P:":GOT 

0 6080 

2210 IF 0=73 THEN 7000 

2220 IF 0=74 THEN POKE 82,2:END 

2888 REM SUBROUTINE FOR MENU OPTIONS 0 
* E 

3000 GOSUB 500 

3010 IF T=0 THEN DDN$="COOL":OlS="KWU 


3020 IF T=1 THEN DON$="ME0T":01$="THER 
M" 

3030 -> " OVG TOTAL 

OVG ",*01$: REM 15 SPACES BEFORE AVG 
3040 ? " TOTAL DOILY ";DDN$; 

" USE" 

305O ? " ";01$;" ";0l$;" DGR 

EE PER ";DDN$ 

3060 ^ "MONTH USE USE DOYS 

DGREE DAY" 

3070 FOR 7=1 TO NR 

3080 REOD M$,Y,UNITS,DOYS,NET,GUNITS,G 
NET,HD,CD 

3080 IF M$<>K$ THEN 3200 
3100 X=UNITS:IF T=1 THEN X=GUNITS 
3110 UP=INTC1000*X/D0YS)/100O:REM COMP 
UTE UNITS PER DAY OND LIMIT DECIMAL PL 
OCE5 DISPLAYED 

3120 IF T=0 THEN DD=CD:IF CD>MINCD THE 
N 3150 

3130 IF T=1 THEN DD=HD:IF HD>MINHD THE 
N FCTR=0:GOTO 3150 

3140 IF CD<=MINCD OR HD<=MINHD THEN KP 
D$="N/0":GOTO 3170 

3150 KPD=INT(1000*(X-FCTR)/((DD/30)*D0 
YS))/1000:KPD$=STR$CKPD):REM COMPUTE U 
NITS PER DEGREE DAY 

3160 REM LINES 3170-3180 ALIGN OND PRT 
NT SCREEN DISPLAY 

3170 CL 1 = 12 _ LEN ISTR$(INT (X))) :CL2=17-I_ 
EN (STR$ (INT (UP) ) ) : CI_3=27-LEN (STR$ (DD) ) 
:CI 4 = 32-LEN CSTR$(INT(KPD))) 

3180 ? M$;" ";Y:" ";:POSITION CL1,PEE 
K(84):? X;:POSITION CL2,PEEK(84JUP; 
:POSITION CL3,PEEK(84):? DD; 
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3198 POSITION CL4,PEEK(84)!? KPD$ 

3200 NEXT Z:RESTORE 

3210 ? :? "00 YOU MONT TO LOOK OT ONOT 
HER MONTH' 9 TYPE Y OR N ." : GET 1*1,0 
3220 IF 0=89 THEN GOSUB 530:GOSUB 500: 
GOTO 3070 

3230 9 "8":GOTO 2008 

3999 REM SUBROUTINE FOR MENU OPTIONS B 
& F 

4800 GOSUB 580 

4010 9 "MONTH TOTOL TOTOL UNIT" 
4020 OlS="KMU ":IF T=1 THEN OlS="THER 

M" 

4030 9 " ";OiS;" COST COS 

T":REM 9 SPOCES BEFORE OlS 

40 41) FflD 7— I Tfl UP 

4850 REOD MS,Y,UNITS,DOYS,NET,GUNITS,G 
NET,HD,CD 

4060 IF NSOKS THEN 4110 

4070 X=UNITS:ONET=NET:IF T=1 THEN X=GU 

NITS:ONET=GNET 

4080 OUG=INTC10808#CONET/Xl)/10800:REM 
COLCULOTE COST PER UNIT 
4090 CL1=13~LEN CSTRS (X) ) :CL2=19-LENCST 
RS(INT(ONET)j j 

4100 ? MS;" ";V;:POSITION CL1,PEEK(84J 
:? x;" "; :POSITION CL2,PEEKC84) :? ON 

ET ; : POSITION 25,PEEK 1841 :? OUG 
4110 NEXT Z:RESTORE : 9 

4120 9 :? "DO YOU MONT TO LOOK OT ONOT 
HER MONTH? TYPE Y OR N >" ! GET 1*1,0 
4130 IF 0=89 THEN GOSUB 530:GOSUB 508: 
GOTO 4040 

4140 9 "8":GOTO 2800 

4999 REM SUBROUTINE FOR MENU OPTIONS C 
& G 

5080 IF T=0 THEN DDN$="COOL":OlS="KMOT 
TS" 

501O IF T=1 THEN DDNS="HEOT":OlS="THER 
MS":FCTR=0 
5020 YR=LOYR 

sflito -7 •• < nryuA . 

OUG OlS: REM 22 SPOCES BEFORE DDNS 
5040 9 " "; OlS;" AGREE 

PER DGREE":REM 9 SPOCES BEFORE DGREE 
5850 9 "YEOR USED COST DOYS 0 
OY" 

5660 USE=0:COST=0:DDT=0:DIU=0 
5070 FOR Z=1 TO NR 

5880 REOD MS, Y,UNITS,DOYS,NET,GUNITS,G 
NET,HD,CD 

5090 X=UNITS:ONET=NET:IF T=1 THEN X=GU 

NITS:ONET=GNET 

5100 IF Y<>YR THEN 5150 

5110 IF T=8 THEN DD=CD:IF CD<=MINCD TH 
EN DD=0:GOTO 5140 

5120 IF T = 1 THEN DD=HD:IF HD <=MINHD TH 

EN DD=0:GOTO 5140 

5130 DDT=DDT+DD:DI0=DIU+X-FCTR 

5140 USE=USE+X:COST=COST+ONET 

5150 NEXT ZlRESTORE 

5160 DDQUG=0:IF DDT>0 THEN DDOUG=INT Cl 
000*DIU/DDT)/1000 

5170 CL1=11~LEN(STRSCUSE)):CL2=17-LENf 

STRS(INT(COST)J J:CL3=26~LEN CSTRS CDDTIJ 

:CI 4=30-LEN CSTRS CINT(DDOUG))J 

5180 9 YR + 1900; :POSITION CL1,PEEKC84) : 

9 USE;:POSITION CL2,PEEKC84) :? COST; 

5190 POSITION CL3,PEEKC84) :? DDT;:POSI 

TION CL4,PEEKC84J:? DDOUG 

5200 YR=YR + 1:IF YR<HIYR + 1 THEN 5060 

5210 ? "DEPRESS ONY KEY TO RETURN TO M 

ENU ." : GET **1,0 

5220 ? "8":GOTO 2880 

5999 REM SUBROUTINE FOR MENU OPTIONS D 
* H FOR CLINE PRINTER! 

6000 TIME=0:SET=0:? "TYPE NUMBER OF LI 

NES PER POGE TO BE PRINTED": GET 1*1 

, 0 : GET ttl, B : HL = C CO-48)*10) + CB-48) 

6010 LPRINT CHRSC27);CHR$C561:REM DISO 
BLE EPSON PRINTER "END OF POPER" FUNCT 
ION 

6820 OlS="KMOTTS":DDNS="COOL":IF T=1 T 
HEN OlS="THERMS":DDNS="HEOT":FCTR=0 
6830 9 **4;” T 

OTOL OUG":REM 26 SPOCES BEFORE TOTA 
L 


6048 9 **4;" " 

;DDNS;" ";OlS:REM 26 SPOCES BEFORE 

DDNS 

6050 ? 1*4;" ";OlS;" TOTOL 

DEGREE PER":REM 9 SPOCES BEFORE OlS 
6060 ? *14; "YEOR USED COST D 

OYS DGR DOY":LPRINT 

6870 TIME=TIME+5:YR=LOYR 
6080 USE=0:COST=0:DDT=0:DIU=0 
6890 PRNTS=" 

":REM 65 SPOCES 

6100 FOR Z=1 TO NR:REM COLCULOTE ONNUO 
L CONSUMPTION OND COST 

6110 REOD MS,Y,UNITS,DOYS,NET,GUNITS.G 
NET,HD,CD 

6120 X=UNITS:ONET=NET:IF T=1 THEN X=GU 

NITS:ONET=GNET 

6130 IF YOYR THEN 6180 

6140 IF T=0 THEN DD=CD:IF CD<=MINCD TH 
EN DD=0:GOTO 6170 

6150 IF T = 1 THEN DD=HD:IF HD < = MINHD TH 

EN DD=0:GOTO 6170 

6160 DDT=DDT+DD:DIU=DIU+X-FCTR 

6170 USE=USE+X:COST=COST+ONET 

6180 NEXT Z:RESTORE 

6190 DD0UG=0:IF DDT>0 THEN DD0UG=INTC1 
00*DIU/DDT)/100 

6280 PRNTS Cll-LEN CSTRS (USE)) , 12)=STRS C 
USE) 

6210 PRNTSC18-LENCSTRSCINTCC0ST))),21) 
=STRS(COST) 

6220 PRNTSC28-LENCSTRS (DDT)),38)=STRSC 
DDT) 

6230 PRNTS C33-LENCSTRS CINT(DDOUG))),36 
)=STRS(DDOUG) 

6240 ? 1*4; YR + 1900; PRNTS : TIME = TIME + 1 
6250 YR = YR + 1:IF YR <HIYR + 1 THEN 6880 
6260 LPRINT :TIME=TIME+1 

6399 REM COLCULOTE OND PRINT MONTHLY 
DOTO. SUBROUTINE 6418 PRINTS COLUMN 
HEODINS ON EOCH SHEET OF POPER 

6400 GOSUB 6410:GOTO 6478 

6410 0lS="KMOTT":DDN$="COOL":IF T=1 TH 
EN O1S="THERM":DDMS="HE0T" 

6420 PRINT 1*4;" 

";OlS:REM 

51 SPOCES BEFORE OlS 

6430 PRINT 1*4; "MONTH DOILY MONTHL 

Y TOTOL COST ";DDNS;" PER" 

6440 PRINT t*4;" ";OlS;" ";01 

S;" MONTHLY PER DEGREE DEGREE 

":REM 9 SPOCES BEFORE OlS 
6450 PRINT 1*4;" USE USE 

COST ";0lS;" DOYS DOY":TIM 

E=TIME+4:REM 9 SPOCES BEFORE USE 
6460 RETURN 

6470 RS="JON":GOSUB 6608 
6480 RS="FEB":GOSUB 6608 
6490 RS="MOR":GOSUB 6600 
6500 R$="0PR":GOSUB 6600 
6510 R$="MOY":GOSUB 6608 
6520 RS="JUN":GOSUB 6680 
6530 RS="JUL":GOSUB 6600 
6540 RS="OUG":GOSUB 6600 
6550 R$="SEP":GOSUB 6600 
6560 RS="OCT":GOSUB 6600 
6570 RS="NOU":GOSUB 6600 
6580 RS="DEC":GOSUB 6608 
6590 CLOSE 1*4:? "8": GOTO 2000 
6600 FOR Z=1 TO NR 
6610 PRNTS=" 

II 

6620 REOD MS,Y,UNITS,DOYS,NET,GUNITS,G 
NET,HD,CD 

6630 IF MSORS THEN 6800 

6640 X=UNITS:ONET=NET : IF T = 1 THEN X=GU 

NITS:ONET=NET 

6650 UP = INT (108*(X/D0Y5))/10O 
6660 OUG=INT (1880#(ONET/X))/1808 
6670 IF T=0 THEN DD=CD:IF CD>=MINCD TH 
EN 6700 

6680 IF T=1 THEN DD=HD:IF HD>=MINHD TH 
EN 6700 

6690 IF CD <NIHCD OR HD <MINHD THEN KPD= 
0:GOTO 6710 
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6700 KPD=INT C10O0*fX-FCTB>/C COO/30)*DA 

YS)1/1000 : KPDS=STRS CKPD1 

6710 PRUTS (6~LEN(STRS(INT (UP111,81-5TP 

SCUP) 

6720 PRNTS C17-LEM (STRS CXI1,161=STRS CXI 
6730 PRNTS (25-LEN C5TRS (INT(ANET111,271 
=STRS(ANET) 

6740 PRNTS C31—LEM (STRS(INT(AUG!11,341 = 
STRS (AUG) 

6750 PRNTS(41~LEN C5TRSCDOl1,401=5TRS(D 
01 

6760 IF KPO-0 THEN PRNTS (49,511 ="N/A": 
GOTO 6780 

6770 PRNTSC48-LENC5TRSCINTCKPD111,511= 
STRSCKPD1 

6780 PRINT **4;MS;" ";Y;PRNTS 

6790 TIME-TIME+i:IF TIME=HL THEN SET=1 

6800 NEXT Z :RESTORE 

6810 IF SET-0 THEN 6850 

6820 IF RS= ,, OEC** THEN 6860 

6830 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY.": GET 1*1, A 

6840 TIME=0:SET=0:GOSUB 6410 
6850 LPRINT :TIME=TIME+1:IF TIME=HL TH 
EN 6820 
6860 RETURN 

6999 REM INSTRUCTIONS FOR PREPARING OA 
TA LINES 

7800 ? "K":LINE=NR+999 

7010 ? "FOR EACH MONTH OF DATA YOU HAU 
E, YOU MUST TYPE ONE DATA LINE.":? 
7020 ? "THE FIRST DATA LINE MUST BE NU 

MRFDFn laflan 

7030 ? "AFTER THAT, EACH DATA LINE MUS 
T BE NUMBERED ONE HIGHER THAN THE 

LAST, FOR" 

7040 ? "EXAMPLE 1000 MUST BE FOLLOWED 
BY 1001, 1002, 1003, 1004, ETC.":? 

7050 ? "DEPRESS ANY KEY WHEN READY FOR 
NEXT INSTRUCTIONS.": GET ttl, A 

7060 ? "REQUIRED FORMAT FOR DATA LINE: 

II 

7070 ? "1000 DATA OCT,82,1350,30,79.25 
,40,35.20,675,0" 

708O ? "DATA ITEMS ARE:" 

7090 ? "1. MONTH; MUST BE 3 LETTERS LO 
NG." 

7100 ? "2. YEAR; MUST BE 2 NUMBERS LON 
G." 

7110 ? "3. NUMBER OF KILOWATTS USED DU 
RING MONTH" 

7120 ? "4. NUMBER OF DAYS IN BILLING P 
ERIOD" 

7130 ? "5. NET COST OF ELECTRICITY IN 
BILLING PERIOD. DO NOT USE BEFOR 

E COST." 

7140 ? "6. NUMBER OF THERMS USED DURIN 
G BILLING PERIOD." 

7150 ? "7. NET GAS COST DURING BILLING 
PERIOD." 

7160 ? "8. HEATING DEGREE DAYS IN BILL 
ING PERIOD." 

7170 ? "9. COOLING DEGREE DAYS IN BILL 
ING PERIOD." 

7180 ? "THE LAST LINE OF DATA YOU ENTE 
RED WAS: "'LINE 

7190 ? "NOW'BEGIN TYPING NEW DATA LINE 
S." 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 292,441,842,99,579,907,370,636 

,836,320,716,331,885,96,502,7306 

230 DATA 233,730,591,746,76,520,80,601 

,716,331,938,958,840,258,376,8594 

540 DATA 999,829,942,42,828,874,900,82 

1,722,238,8,882,813,869,834,10593 

1014 DATA 790,789,901,886,790,706,235, 

40,817,754,52,716,513,196,246,8431 

2020 DATA 108,384,413,926,623,957,582, 

346,410,660,150,289,852,856,62,7618 

2170 DATA 43,853,857,152,858,829,785,7 

25,904,34,834,67,296,576,496,8309 


3080 DATA 529,843,657,119,289,954,155, 

6,288,885,643,249,778,316,846,7557 

3230 DATA 308,791,727,470,859,221,495, 

528,844,558,976,709,947,58,316,8807 

4130 DATA 843,308,797,965,960,821,903, 

227,574,777,508,533,562,736,79,9585 

5120 DATA 103,217,179,784,160,155,583, 

146,442,40,311,374,459,583,449,4985 

6030 DATA 909,968,263,948,489,781,562, 

324,531,560,750,89,113,222,184,7693 

6180 DATA 789,719,261,379,272,537,363, 

456,452,183,373,949,793,589,58,7173 

6450 DATA 209,807,8,993,12,27,14,58,57 

,35,33,24,61,993,415,3738 

6600 DATA 513,715,547,890,256,544,862, 

628,652,432,421,622,602,336,833,8853 

6750 DATA 94,607,871,681,101,802,752,9 

74,248,891,158,819,716,946,671,9331 

7020 DATA 376,829,188,999,227,833,62,3 

68,898,846,531,489,402,50,291,7389 

7170 DATA 342,975,364,1681 


Kilowatts 


10 POKE 82,0 

20 •* "Mi KILOWATTS" 

30 ■> " ELECTRICITY" 

40 •> " ANALYSIS PROGRAM" 

50 " BY JOE HARB" 

60 ? “**DURING OPERATION OF THIS PROGR 
AM, DO NOT DEPRESS RETURN KEY AF 

TER TYPING ANSWERS TO PROMPTS." 

70 OPEN *ti,4,0,"K:":REM OPEN KEYBOARD 
TO GET INPUTS LATER IN PROGRAM WHEN G 
ET STATEMENT IS USED 

80 •» "DEPRES5 ANY KEY TO CONTINUE." 
: GET 1*1, A 

90 DIM DDNS(4), MS (3),KS (3),KPDS(6),PRN 
TS (65) , RS (3) 

100 MINCD=100:MINHD=200:FCTR=400:REM M 
INCD=MINIMUM COOLING DAYS NECESSARY FO 
RCOMPUT ATION 

110 REM MINHD=MINIMUM HEATING DEGREE D 
AYS NECESSARY 

120 REM FCTR-NR. OF KILOWATTS TO BE SU 
BTRACTED FROM MONTHLY KILOWATT USE WHE 
N COMPUTING DEGREE DAYS. 

130 REM SUBTRACTING FCTR REDUCES EXTEN 
T TO WHICH OTHER HOUSEHOLD ELECTRICITY 
USE BIASES HEATING AND COOLING STATS 
200 REM CALCULATE: TOTAL MONTHS OF DAT 
A (NR); LOW YEAR OF DATA (LOYR); AND H 
IGH YEAR OF DATA (HIYR) 

210 NR—0 

220 READ MS,Y,UNITS,DAYS,NET,HD,CD 
230 REM MS:: MONTH, Y=YEAR, UNITS = KILOWA 
TTS USED USED IN BILLING PERIOD 
240 REM DAYS=NR. OF DAYS IN BILLING PE 
RIOD 

250 REM NET-COST OF ELECTRICITY WHEN B 
ILL PAID ON TIME,DD=DEGREE DAYS DURING 
BILLING MONTH 

260 REM HD=HEATING DEGREE DAYS 
270 REM CD=COOLING DEGREE DAYS 
280 LOYR-Y:RESTORE 

290 READ MS,Y,UNITS,DAYS,NET,HD, CD 
300 IF MS="END" THEN RESTORE :GOTO 200 
0 

310 NR=NR+1:HIYRrV 
320 GOTO 290 

498 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS A * B; THEN CLEAR INPUT OUE 
STIONS FROM 5CREEN TO ALLOW DISPLAY 

499 REM OF ADDITIONAL DATA 

500 ? "RTYPE FIRST THREE LETTERS OF MO 
NTH YOU WANT.":GET ttl,A:GET ttl,B:GET 

tti,C 

518 REM NEXT LINE CONCERTS ATASCI VALU 
ES TYPED ON KEYBOARD TO A STRING 
520 KS=CHRS(A) :KSCLEN(KS)+1)=CHRS (B) :K 
S(LEN(KS)+1)=CHR$(C):GOSUB 530:RETURN 
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538 POKE 84,PEEK<841~2:FOR Z=0 TO 1:? 

11 

*' : NEXT Z : REM 38 SPACES 
540 POKE 84,PEEK <84? ~2:RETURK _ 

looo rem fin)i:■ >Mrm-ir;ii4■ i 4: i; 1 4 

1898 DOTH END,999,0,0,0,0,0 

1999 REM MENU OPTIONS 

2000 7 "KTHIS PROGRAM ALLOWS THE FOLLO 

WING SELECTIONS : M : 2 

201O ? A. TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT USE" 

2820 ? " B. TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT COST" 

203O 2 " C. TOTAL ANNUAL KILOWATT 

USE AND COST" 

2040 ? " D. PRINTOUT OF ALL ELECTR 

ICAL USE DATA" 

2050 ? " E. DATA INPUT INSTRUCTION 

S" 

2O60 7 " F. EXIT PROGRAM":2 

207O 7 "TYPE LETTER OF OPTION YOU WANT 

.":GET »1,A 

2080 REM GET IS USED TO DETERMINE LETT 

ER TYPED ON KEYBOARD; A=ATASCI UALUE 0 

F LETTER TYPED 

2090 IF A = 65 THEN 3O0O 

2100 IF A = 66 THEN 4088 

2110 IF A = 67 THEN 5080 

2120 IF A = 68 THEN TRAP 2160:OPEH 1*4,8, 

0,"P:":TRAP 18000:GOTO 6000 

2130 IF A = 69 THEN 7888 

2140 IF A=70 THEN POKE 82,2:END 

2150 GOTO 2070 

2160 REM PRINTER ERROR MESSAGE 

2170 CLOSE 114: ? "PRINTER IS NOT ON-LIN 

E'B"STRAP 10000:GOTO 2070 

2999 REM SUBROUTINE FOR MENU OPTION A 

3000 GOSUB 500 

3010 7 "DO YOU WANT TO INCLUDE INFORMA 
TION ON HEATING<H1, COOLING<C1 OR NE 
ITHER CN1 ?" : GET tll,A:GQ5UB 530 
3820 IF A-67 THEN DDNS="COOL":T=0 
3030 IF A-72 THEN DDN5 = ”HEAT": T=1 
3840 IF A=78 THEN DDNS-" ":T=2:DD=0 
3050 7 "MONTH TOTAL AUG TOTAL A 

UG KWIJ" 

306O 2 " KWU DAILY DGREE P 

ER ";DDNS:REM 8 SPACES BEFORE KWU 
3070 2 " KWU USE DAYS D 

GREE DAY":REM 14 SPACES BEFORE KWU 
3080 FOR Z=1 TO NR 

3098 RFAD MS,Y,UNITS,DAYS,NET,HD,CD 
3100 IF MS <> K$ THEN 3200 
3110 UP=INT<108*UNITS/DAYS1/108:REM CO 
MPUTE UNITS PER DAY AND LIMIT DECIMAL 
PLACES DISPLAYED 

3120 IF T=0 THEN DD=CD:IF CD>MINCD THE 
N GOTO 3150 

3130 IF T-l THEN DD=HD:IF HD>MINHD THE 
N GOTO 3150 

3140 IF T=2 OR CD<=MINCD OR HD<=MINHD 
THEN KPDS = "N/A"‘.GOTO 3170 
3150 KPD=INT<100*<UNIT5-FCTR1/C CDD/301 
*DAYS11/100:KPDS=STRS<KPD1:REM COMPUTE 
UNITS PER DEGREE DAY 
3160 REM LINES 3170-3190 USED TO ALIGN 
AND PRINT SCREEN DISPLAY 
3170 CL1=I2-LEN<STRS<INT<UNIT51J1:CL2= 
17-LEN(STRS<INT <UP1 1 J :CL3 = 26~LEN tSTRS 1 
DDJ J :CL4 = 32-LEN <5TRS<INT CKPDJ1J 
3180 2 MS;" ";Y;:POSITION CL 1,PEEK 1841 
:2 UNITS;:POSITION CL2,PEEK<841:2 UP;: 
POSITION CL3,PEEK<841:2 DD; 

3190 POSITION CI_4,PEEK<841 ‘.2 KPDS 
3200 NEXT Z:RESTORE 

3210 2 :2 "DO YOU WANT TO LOOK AT ANOT 
HER MONTH' 7 TYPE Y OR N . " : GET 111, A 
3220 IF A=89 THEN GOSUB 530:GOSUB 508: 
GOTO 3O80 

3230 7 "5":GOTO 2880 

3999 REM SUBROUTINE FOR MENU OPTION B 

4000 GOSUB 508 

4010 2 "MONTH TOTAL TOTAL UNIT" 

4820 7 " KWU COST COST" 

:REM 9 SPACES BEFORE KWU 
4830 FOR Z=1 TO NR 

4848 READ MS, Y,UNITS,DAYS,NET,HD,CD 


4050 IF MSOKS THEN 4890 

4060 AUG=INT <18800#(NET/UNITS)1/10088: 

REM CALCULATE AUERAGE DAILY USE 

4070 CL1-13-LEN<STRS<INT<UNITS111:CL2= 

19-LEN CSTRSCINT <NET111 

4080 2 MS;" ";Y;:POSITION CL1,PEEK<841 
:2 UNITS;" ";:POSITION CL2,PEEK<841: 
7 NET;:POSITION 25,PEEK<841:2 AUG 
4890 NEXT Z:RESTORE 

4100 2 :2 "DO YOU WANT TO LOOK AT ANOT 
HER M0NTH2 TYPE Y OR N . " : GET 111, A 
4118 IF A=89 THEN GOSUB 530:GOSUB 500: 
GOTO 4030 

4120 2 "K":GOTO 2080 

4999 REM SUBROUTINE FOR MENU OPTION C 
5800 2 “KDO YOU WANT TO INCLUDE INFORM 
ATION ON HEATING <H1 OR COOLING <C1 7 
" : GET ttl,A:YR=LOYR 
5810 IF A-67 THEN DDNS = "COOL" : T-~0 
5020 IF A-72 THEN DDNS-"HEAT":T=1 
5030 7 " "'DDNS'" 

AUG KWATT":REM 22 SPACES BEFORE DDN 
S 

5840 2 "YEAR KWATTS DGREE P 

ER DGREE":REM 10 SPACES BEFORE DGREE 
5850 7 " USED COST DAYS D 

AY" 

5060 USE=0:COST=0:DDT=0:DIU=0 
5070 FOR Z-l TO NR 

5080 READ MS,Y,UNITS,DAYS,NET,HD,CD 
5890 IF YOYR THEN 5140 
5188 IF T=0 THEN DD=CD:IF CD<=MINCD TH 
EN DD=0:GOTO 5130 

5110 IF T-l THEN DD=HD:IF HD<=MINHD TH 
EN DD=0:GOTO 5138 

5128 DDT=DDT+DD:DIU=DIU+UNITS-FCTR 
5130 USE=USE+UNITS:COST-COST+NET 
5148 NEXT ZlRESTORE 

5150 DDAUG = 8:IF DDT>8 THEN DDAUG = INT<1 
00#DIU/DDT1/100 

5160 CL1=17-LEN<STRS<INT<C0ST111:CL2=2 
6-LEN <STRS<INT <DDT111 : CL3 = 30-LEN <STR$ t 
INT <DDAUG111 

5170 2 YR + 1900;" ";USE,*" ";:P05ITI0 

N CL1,PEEK<841: 7 COST;:POSITION CL2,PE 
EK <841: 7 DDT; POSITION CL3,PEEK<841 
5180 2 DDAUG 

5190 YR=YR + l:IF YR<HIYR + 1 THEN 5068 
5280 RESTORE 

5210 2 :2 "DEPRESS ANY KEY TO RETURN T 
0 MENU.": GET 111, A 
5220 GOTO 20O0 

5999 REM SUBROUTINE FOR MENU OPTION D 
6800 TIME=0:SET-0:2 "KTYPE NUMBER OF L 
INES PER PAGE TO BE PRINTEDGET 

HI, A: GET 111,B:HL=<<A-481#101 + <B-481 
6010 LPRINT CHRS<271;CHRS<561:REM DISA 
BLE EPSON "END OF PAPER" FUNCTION 
6020 2 114;" TOT 

A! AUG TOTAL AUG":REM 24 SPACES 

BEFORE TOTAL 

6830 7 114;" HEA 

T KWATT COOL KWATT":REM 24 SPAC 
ES BEFORE HEAT 

6040 2 H4;" KWATTS TOTAL DGR 

PER DGR PER":REM 8 SPACES 

BEFORE KWATT 

6050 2 114 ; "YEAR USED COST DAY 

S DGR DAY DAYS DGR DAY":LPRINT 

6060 TIME-TIME+5:YR=LOYR 

6070 IJSE = 0 : C0ST = 8 : CDDIU=8 : CDTOT=0 : HDDI 

U=8:HDT0T = 8:CDAUG=8 : HDAUG-6 

6080 REM CDDIU 4 HDDIU ARE NUMBER OF A 

NNUAL KILOWATTS FOR HEATING & COOLING. 

ONLY MONTHS WITH MORE THAN 100 
6098 REM COOLING OR 280 HEATING DEGREE 
DAYS ARE INCLUDED. 580 KWATTS PER MONT 
H SUBTRACTED BY FCTR FOR OTHER ELECT, 
6108 REM CDTOT 4 HDTOT ARE TOTAL HEATI 
NG/COOLING DEGREES PER ANNUM FROM MONT 
HS WITH SUFFICIENT DEGREE DAYS 
6110 PRNTS-" 

":REM 65 SPACES 

6128 FOR Z=1 TO NR:REM CALCULATE ANNUA 

L CONSUMPTION AND COST 

6130 READ MS,Y,UNITS,DAYS,NET,HD,CD 
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6148 IF YOYR THEN 6180 

6150 IF CD>MINCD THEM CDTOT=CDTOT+CD:C 

DDIU=CDDIU+UNITS~FCTR 

6160 IF HD>MINHD THEN HDTOT=HDTOT +HD:H 
DDIU=HDDIU+UNITS-FCTR 
6170 USE=USE+UNITS:COST=COST+NET 
6180 MEXT Z : RESTORE 

6190 IF CDTOT>0 THEN CDAUG=INT(100*CDD 
IV/COTOTJ/100 

6208 IF HDTOT>0 THEN HDAUG=INT (188*HDD 
IU/HDTOTJ/100 

6210 ? tt4;YR+1980;:PRNT$(il-LEN(STRS(U 
SE)),10)=STR$(USE) 

6220 PRNTS C16-LEN (STRS CIMT (COST)) ) ,18) 
=STRS(COST) 

6230 PRNTS C25-LEN CSTRS(HDTOT)1,241-STR 
S (HDTOT) 

6240 PRNTS(38-LEN(STRS(INT(HDAUG)1J,32 
)= STR$(HDAUG) 

6250 PRNTS(41-LEN(STRS(CDT0T)),40)=STR 
S(CDTOT) 

6260 PRNTS C45-LEN(5TRS(INT(CDAUG)J J,47 
)=5TRS (CDAUG) 

6270 ? tt4;PRNTS:TIME=TIME+i 

6280 YR=YR+1:IF YR<HIYR+1 THEN 6870 

6290 RESTORE :LPRINT :TIME=TIME+1 

6399 REM CALCULATE AND PRINT MONTHLY 
DATA. SUBROUTINE 6410 PRINTS COLUMN 
HEADINGS ON EACH SHEET OF PAPER 

6400 GOSUB 6410:GOTO 6460 
6410 ? JUJ'* 

KMAT KMAT 

":TIME=TIME+1:REM 47 & 10 SPACES 
6420 ? tt4; "MONTH DAILY 
HLY COST HEAT PER 

:TIME=TIME+1 

6430 ? tU;’ 1 KMATT 

T PER DGRE DGRE 

":TIME=TIME*1:REM 8 SPACES 
6440 ? #4;" USE 

KHU DAYS DAY 

:LPRINT :TIME=TIME+i:REM 8 
6450 RETURN 

6460 R$= I, JAN": GOSUB 6600 
6470 RS="FEB":GOSUB 6600 
6480 R$="MAR":GOSUB 6600 
6490 RS="APR": GOSUB 6600 
6500 R$="MAY":GOSUB 6600 
6510 RS="JUN": GOSUB 6600 
6520 R$= aa JUL aa : GOSUB 6600 
6530 RS="AUG": GOSUB 6600 
6540 RS="SEP": GOSUB 6600 
6550 RS="OCT": GOSUB 6608 
6560 RS="NOU":GOSUB 6600 
6570 RS="DEC": GOSUB 6600 
6580 CLOSE tt4: ? "«":GOTO 2080 
6680 FOR Z=1 TO NR:REM CALCULATE MONTH 
LY CONSUMPTION AND COST 
6610 READ MS,Y,UNITS,DAYS,NET,HD,CD 
6620 HAUG=6:CAUG=8 
6630 IF MSORS THEN 6820 
6640 ? tt4; MS; " "J Y; 

6650 PRNTS=" 

aa : REM 65 SPACES 

6668 UP=INT(100*(UNITS/DAY5JI/100 
6670 PRNTS (6-LEN(STRS (INT(UP1J J,8J =STR 
S (UP! 

6680 PRNTS (15-LEM(STRS(UNITS)I,14)=STR 
S (UNITS) 

6690 PRNTS(22-LEN(STRS(INT(NET))),24)= 
STRS (NET) 

6700 AUG=INT(1800*(NET/UNITS))/1000 
6710 PRNTS(28“LEN(STRS(INT(AUG))),31)= 
STRS(AUG) 

6720 PRNTS(39-LEN(STRS(HD)),38)=STRS(H 
D) 

6730 IF HD>MINHD THEN HAUG=INT(100*((U 
NIT5-FCTR)/HD))/100O 

6740 IF HAUG=0 THEN PRNTS (42,44) = a, N/A ,a 
:GOTO 6760 

6750 PRNTS (43-LEN(STRS(INT(HAUG))),46) 
=STRS(HAUG) 

6760 PRNTS(53-LEN(STRS(CD)),52)=STRS(C 
D) 

6770 IF CD>MINCD THEN CAUG=INT(10O*((U 
NITS-FCTR)/CD))/1000 


MNTHLY MNT 
COOL PER" 

KMATT COS 
DGRE DGRE 
BE4 KMATT 
USE 

DAYS DAY" 
& 13 5PCS 


6780 IF CAUG=0 THEN PRNTS(56,58)="M/A" 
:GOTO 6800 

6790 PRNTS(57-LEN(STRS (INT(CAUG))),68) 
=STRS(CAUG) 

6880 TIIff=TIME+l:IF TIME=HL THEN SET=1 

6810 ? tt4;PRNTS 

6820 NEXT Z:RESTORE 

6830 IF SET=8 THEN 6870 

6840 IF RS="DEC" THEN 6880 

6858 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY" : GET ttl, A 
6860 TIME=0:SET=0:GOSUB 6410 
6870 LPRINT :TIME=TIME+1:IF TIME=HL TH 
EN 6840 
6880 RETURN 

6999 REM INSTRUCTIONS FOR PREPARING DA 
TA LINES 

| THF“ND4 I I44 

7010 ? "KFOR EACH MONTH OF DATA YOU HA 
UE, YOU MUST TYPE ONE DATA LINE." 

7820 ? "4THE FIRST DATA LINE MUST BE N 
UMBERED 1000." 

7030 ? "4AFTER THAT, EACH DATA LINE MU 
ST BE NUMBERED ONE HIGHER THAN TH 

E LAST." 

7840 ? "FOR EXAMPLE, 1000 MUST BE FOLL 
OMED BY 1001, 1002, 1003, 1804, ETC. 


7.050 ? "-(DEPRESS ANY KEY MHEN READY FO 
R NEXT INSTRUCTIONS.":GET ttl,A 

7060 ? "NTHE FOLLOMING IS THE FORMAT F 
OR A DATA LINE:" 

7070 ? "(1000 DATA OCT,82,1350,30,79.2 
5 495 0" 

7080 ? "(REQUIRED DATA SEQUENCE AND FO 
RMAT :" 


* 1 . 

■ 2 . 


7090 ? 

NG" 

7100 ? 

G" 

7110 ? "3 
MONTH" 
7120 ? "4 
ERIOD" 
7130 ? "5 
BILLING 
7140 ? "6 
ING 

7150 ? "7 
ING 


MONTH; MUST BE 3 LETTERS LO 
YEAR; MUST BE 2 NUMBERS LON 
NUMBER OF KILOMATTS USED IN 
NUMBER OF DAYS IN BILLING P 


NET COST OF ELECTRICITY IN 
PERIOD" 

HEATING DEGREE DAYS IN BILL 
PERIOD" 

COOLING DEGREE DAYS IN BILL 
PERIOD" 

7160 IF LINE<>999 THEN ? "(LAST LINE 0 
F DATA YOU ENTERED MAS: ";LINE 
7170 ? "(NOM BEGIN TYPING NEM DATA LIN 
ES ." 

7180 END 




CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 626,571,316,11,87,650,765,978, 

462,317,312,349,844,885,96,7261 

220 DATA 748,501,730,152,156,203,79,76 

9,55,604,722,11,498,617,840,6685 

528 DATA 258,376,999,591,189,73,420,43 

5,728,140,283,330,681,639,405,6467 

2090 DATA 851,848,852,604,860,824,723, 

279,394,487,725,125,171,153,332,8228 

3050 DATA 496,276,286,497,761,837,185, 

274,293,885,611,584,357,351,249,6942 

3200 DATA 778,316,848,308,491,727,470, 

84,494,758,865,148,662,750,783,8482 

4100 DATA 314,839,306,495,552,174,156, 

129,793,294,777,500,764,740,77,6910 

5110 DATA 101,50,652,783,713,236,823,6 

69,448,51,341,715,499,355,108,6544 

6020 DATA 373,553,240,527,488,719,149, 

800,872,557,326,764,751,18,104,7241 

6170 DATA 658,789,616,635,828,389,85,5 

36,63,546,626,457,719,248,372,7567 

6410 DATA 109,812,106,297,806,999,992, 

11,33,13,57,56,34,32,23,4380 

6568 DATA 60,992,414,734,777,465,896,3 

52,576,210,625,142,869,295,840,8247 
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6720 DATA 127,482,778,321,191,446,779, 
309,95,995,804,758,980,109,893,7977 
6870 DATA 166,821,716,350,473,886,594, 
695,429,247,84,642,143,82,144,6472 
7120 DATA 531,305,47,98,613,435,276,23 
05 


Snowflake Demo 

10 REM *** SNOWFLAKE GENERATOR *** 

20 REM 

30 REM BY TOM HUDSON 
40 REM 

50 REM SET UP GRAPHICS MODE, COLORS 
60 REM 

70 GRAPHICS 8+16:SETCOLOR 2,0,0:C0L0R 
80 REM 

90 REM SET UP DEGREES, X AND Y TABLES 
190 REM 

110 DEG :DIM DC10),XC10J,YC10) 

120 REM 

130 REM RANDOMIZE SHAPE 
140 REM 

150 FOR 1=1 TO 10:DCI)=0:XCI)=RND(0)*8 
0:Y(I)=RNDC0)*I*4:NEXT I:POKE 77,9 
160 REM 

170 REM ECHO AND ROTATE SHAPE 
180 REM 

190 PLOT 160,96:FOR 1 = 1 TO 10:DRAWTO 1 
60+ CX CI)*COS CD til1+YCI)*SIN CD tilII,96 + 
C-X CI)*SINCD CIJ1+YCI)*COS CD til 11 
200 DCI)=DCI)+60: NEXT I: IF DC1X360 TH 
EN 190 

210 FOR 1=1 TO 10:DCI)=0:NEXT I 
220 PLOT 169,96:FOR 1=1 TO 10:DRAMTO 1 
60+ CX CIl*COS CD Cl)I-Y CI)*SIN CD till), 96 + 
C-X CI)*SIN CD Cl))-Y CI)*COS CD Cl))) 

230 D(I)=D Cl) +60 : NEXT I: IF DC1X360 TH 
EN 220 
240 REM 

250 REM LEAVE IT ON SCREEN A WHILE 
260 REM 

270 FOR DELAY=1 TO 50O6:NEXT DELAY:RUN 
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TYPING TRAINER 


16K Cassette 24K Disk 
by Regena 

Typing Trainer utilizes color, graphics and 
sound to help a student practice typing sentences for 
accuracy. There are 40 different 30-stroke sentences 
that are chosen randomly for the drills. Each drill 
consists of ten different sentences. 

A sentence is shown on the screen. The student 
types and enters it. If it is incorrect, an "uh-oh” 
sounds and a "wrong” score is posted. The student 
has time to review the sentence before continuing. If 
the typed sentence is correct, a "right” score is 
posted, a train whistle sounds, and there are two 
blasts of steam from the engine’s smokestack. 

The running total score is displayed on the screen 
after each sentence. After ten sentences, the final 
score is displayed and a tune is played. 

Following each drill of ten sentences, the student 
may choose whether to try again or not. If "N” for 
"no” is entered, the program ends. If "Y” for "yes” 
is entered, the drill is repeated with ten different 
sentences. Each drill chooses the sentences random¬ 
ly, and the drill may be performed four times with¬ 
out sentences being repeated. After that, the sen¬ 
tences are all available for four more drills. The drills 
will be different each time because the sentences are 
chosen randomly. This process continues as long as 
the student wishes to continue. 

Programming techniques. 

ATARI does not allow arrays of string variables, 
so an array of sentence numbers is used. The sen¬ 
tences are numbered 1 through 40, where J is the 
number. Initially, all A(J)s are set to zero. After a 
sentence is used, A(J)=1. 

To print a sentence, first a number J is chosen as a 
random integer from 1 through 40 (Line 220). If 
A(J)=1 the sentence has been used before and may 
not be chosen again, so another J is chosen (Line 
230). If A(J)=0, SEN$ is set equal to the Jth sentence 
and the program branches to the drill (Lines 232- 
250, 4000-4390). 

After the drill has been performed four times 


(using FLAG as a counter), all A(J)s are reset to zero 
so the sentences are all available for use in the next 
drill (Line 180). 

To avoid the possibility of the student "crashing” 
the program during responses, an INPUT procedure 
is avoided. Instead, the program looks at what key is 
pressed by using B=PEEK(764). Yes or no responses 
are received by the student pressing "Y” or "N”. 
Any other key pressed is ignored. 

When sentences are typed, the characters are 
printed as each key is pressed until "RETURN” is 
pressed (which indicates the student is finished typ¬ 
ing the sentence). The control keys or SHIFTing are 
not allowed, since a typist practicing sentences 
should not backspace and type over letters, nor type 
capital letters in the middle of the sentence (actually, 
the student types all capital letters in the standard 
computer mode but does not SHIFT). If a control 
key or SHIFT is pressed, an asterisk is printed in that 
character position of the student’s sentence. 

To avoid scrolling, the student is permitted to type 
only 34 characters in the sentence (Line 2005). The 
student’s sentence is compared with the given sen¬ 
tence either after "RETURN” is pressed or after 34 
characters have been typed. □ 

Explanation of the program. 
Variables Used 

J Sentence number. 

AO) =0 for available sentence, = 1 if sen¬ 

tence has been used. 

FLAG Counter for number of times drill 

is performed. 

WS Wrong score. 

RS Right score. 

PROB Counter for number of sentences. 

R =1 if sentence is typed correctly, 

=0 if sentence is typed incorrectly. 
D Counter in delay loop for SOUND. 
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B 

BB 

I 

C, L 
SEN$ 

OLDB 

K 

C$ 

T$ 

X,Xl,Y, Y1,II, 
X2,Y2,X3,Y3 

Line Numbers 
10 
30 
100 
120 

180-200 

202 

205 

210 

220-230 


232-250 


255-280 


300-310 


320 

330-345 

350 


355-360 

370 


400-495 


496 

510-530 


999 


Value in PEEK(764) for key pressed. 

= 1 for "yes” response, =0 for "no” 

Subroutines 

1000-1060 

Subroutine reads DATA for assign¬ 

response. 

Counter in loop. 

ASCII value. 

1900-2500 

ing ASCII code to key pressed for 
use in printing. 

Subroutine prints the sentence and 

Typing sentence. 

Holding variable for B value. 

1905 

accepts student’s sentence. 

Prints the sentence. 

Counter for number of characters 

1910-193 0 

Sounds a "beep” to indicate the 

printed in student’s sentence. 
Character for key pressed. 

2000 

student’s turn to type. 

Initializes variables. 

Student’s typed sentence. 

2005 

Allows student to input up to 34 

Coordinates for graphics. 

2010-2400 

characters. 

Prints each character as the student 

Procedure 

Prints title screen and plays music. 
Prints instruction screen. 

DIMensions variables. 

Reads in data for ASCII codes re¬ 

2410-2500 

types it. If the student tries to press 
a control or SHIFTed character, 
"*” is printed. The student presses 
"RETURN” to end the sentence. 
Sets R=1 if the sentence typed 

lated to key pressed. 

Initializes variables. 

Draws train. 

4000-4390 

matches the given sentence, other¬ 
wise R=0, then returns. 

The given 30-stroke typing sen¬ 

Initializes score to be zero. 

Performs the drill for 10 sentences. 

5000-6840 

tences. 

Subroutine draws the train and coal 

Randomly chooses a sentence; if 
the sentence has been used previ¬ 

7000-7490 

car. 

Subroutine prints title screen and 

ously, chooses another one. 
Depending on the J chosen, prints 

8000-8160 

plays music. 

Subroutine prints instructions and 

the corresponding sentence and 
prints the student’s sentence; com¬ 
pares sentences. 

9000-9080 

waits for student to press "RE¬ 
TURN” to continue. 

Subroutine prints score and plays 

If sentence is incorrect, sounds 
"uh-oh” and increments wrong 


music. 


score. 

If sentence is correct, train toots 
whistle and blows steam; incre¬ 
ments right score. 

Prints running score. 

Short delay for correct sentence, 
longer delay for incorrect sentence. 
A(J)=1 indicates sentence J has 
been used and will not be available 
to use again. 

Clears text screen and goes to next 
sentence. 

After ten sentences, prints total 
score on full screen and plays 
music. 

Asks the student to "try again?” 
and waits for the student to press 
"Y” or "N.” 

If the student pressed "N,” ends 
program. 

If the student pressed "Y,” incre¬ 
ments the number of times the drill 
was performed, If the drill has been 
performed 4 times, resets all sen¬ 
tences to be available; branches to 
beginning of drill. 

End. 


10 GRAPHICS 18:G0SUB 7800 
30 G0SUB 8800 

100 DIM A(40),L(63),SENS(30),T$(35),C$ 
(1) , MS (1) 

120 G0SUB 1800 

180 FOR J=1 TO 40:A(J)=0:NEXT J 

200 FLAG=0 

202 G0SUB 5000 

205 WS=0:RS=0 

210 FOR PR0B=1 TO 10 

220 J=INT(40*RND(1))+1 

230 IF A(J)=1 THEM 228 

232 IF J>30 THEN 248 

234 IF J> 20 THEM 244 

236 IF J>10 THEM 240 

238 ON J G0SUB 4000,4010,4020,4038,404 
0,4050,4060,4070,4080,40S6 
238 GOTO 255 
240 JJ=J-10 

242 OH JJ G0SUB 4100,4110,4120,4138,41 
46,4150,4160,4170,4180,4190 

243 GOTO 255 

244 JJ-J-20 

245 ON JJ GOSUB 4200,4216,4220,4230,42 
46,4250,4260,4270,4280,4290 

246 GOTO 255 
248 JJ=J-30 

256 ON JJ GOSUB 4308,4310,4320,4330,43 

46,4350,4360,4370,4380,4390 

255 IF R=1 THEN 300 

260 SOUND 0,84,10,14 

264 FOR D=1 TO 40:NEXT D 

268 SOUND 0,101,18,14 

278 FOR D=1 TO 40:NEXT D 

275 SOUND 6,0,10,8 

280 MS-1*15 + 1:GOTO 320 

360 GOSUB 3000 

310 RS-RS+1 
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328 PRINT :PRINT R5;" RIGHT",MS;" WRON 
G" 

338 IF R=1 THEN 345 
340 FOR D-l TO 500INEXT 0 
345 FOR D=1 TO 50O:NEXT D 
350 A(J)=1 

355 PRINT IPRINT :PRINT 

360 NEXT PROB 

378 GOSUB 9800 

4O0 GRAPHICS O 

410 PRINT : PRINT '.PRINT 

420 PRINT "DO YOU WANT TO TRY AGAIN?" 

438 PRINT :PRINT "PRESS 'Y' FOR YES" 

440 PRINT " 'N* FOR NO" 

450 B=PEEKC764) 

468 IF B = 43 THEN BB=1IGOTO 490 

470 IF B=35 THEN BB=8:G0T0 490 

480 GOTO 458 

490 SOUND 8,23,10,8 

492 FOR D = 1 TO 10:NEXT D 

494 SOUND 0,0,10,8 

495 POKE 764,255:B=255 

496 IF BB=0 THEN 999 
50O PRINT "If" 

510 FLAG-FLAG+1:IF FLAG=3 THEN 188 
530 GOTO 282 
999 END 

1800 FOR 1=0 TO 63 

1010 READ C : L tIJ =C:NEXT I 

1840 DATA 76,74,59,0,8,75,43,42,79,0,8 

0,85,0,73,45,61,86,0,67,0,8,66,88,90,5 

2,0,51,54,0,53,50 

1050 DATA 49,44,32,46,78,0,77,47,8,82, 
0,69,89,8,84,87,81,57,0,48,55,0,56,60, 
62,70,72,68,8,0,71,83,65 
1060 RETURN 

1900 POKE 764,255:B=255 
1905 PRINT SENS 
1910 SOUND 8,47,10,14 
1920 FOR D=1 TO 60:NEXT D 
1930 SOUND 0,0.10,0 

2800 OLDB=-l:TS="":OPEN ttl,4,0,"K:" 
2O05 FOR K=1 TO 34 
2010 GET »1,B:IF B=155 THEN 2400 
2820 IF B>96 THEN C$="*":GOTO 2865 
2860 C$=CHR$(B) 

2065 PRINT CS;:T$(LEN(TSJ+11=C$ 

2080 NEXT K 
2090 GOTO 2400 

2180 I=INT(PEEKC537751/4J:IF CI/2J=INT 

CI/2) THEN 2010 

2118 POKE 764,255:0LDB=-1 

2128 GOTO 201O 

2408 CLOSE ttl 

2410 IF TS=SEN$ THEN R=l:GOTO 2500 

2420 R=0 

2500 RETURN 

3080 FOR 11=1 TO 2 

3010 SOUND 0,50,10,14:SOUND 1,63,10,14 

3025 COLOR 2 

303O GOSUB 3500 

3840 FOR D=1 TO 1O0:NEXT D 

3050 SOUND O,0,10,0:SOUND 1,0,10,8 

3870 COLOR 0 : GOSUB 3500 

309O NEXT II:RETURN 

3508 PLOT 121,3 

3510 PLOT 125,14:DRANT0 126,10 
3538 PLOT 124,14:DRAUTO 125,0 
3550 PLOT 123,14:DRAWTO 123,O 
3570 PLOT 122,11:DRAMT0 121,4 
3590 RETURN 

4000 SENS="HE FEELS SHE HAS A SAFE LEA 
SE.":GOTO 1900 

4010 SEN$="ANDY MUST GIVE MY BAND A HA 
ND.":GOTO 1900 

4020 SENS="SHE IS STILL AT THE LAKE SI 
TE.":GOTO 1900 

4030 SENS="THERE IS A QUICK QUIZ FOR H 
IM.":GOTO 1900 

4040 SENS="JUST SOME OF US HAVE TO DO 
IT.":GOTO 1900 

4050 SEN$="TWO OF THE GIRLS ARE HERE N 
OH.":GOTO 1900 

4060 SENS="JANE STARTS HER TALK AT THR 
EE."'.GOTO 1900 

4070 SENS="TRY NOT TO LOOK AT YOUR HAN 
DS.":GOTO 1900 


4088 SEN$="HE DID SEEK AID FOR THE TRU 
CK,"IGOTO 1900 

4090'SEN5="CHECK THE PAPER FOR ANY MAR 
KS."IGOTO 1900 

4100 SEN$="IT IS THIS DESK FILE HE SEE 
KS.":GOTO 1900 

4110 SEN$="HE KNOWS HE MUST KEEP HORKI 
NG.":GOTO 1900 

4120 5EN$="M£ HOULD GIVE HIM A GOOD WA 
GE.”:GGTO 1900 

4130 SENS="BRING ALL BOOKS TO THE TABL 
ES."IGOTO 1900 

4140 SENS="I HOPE THAT TAX DOES NOT PA 

SS. "IGOTO 1900 

4150 5EN$="GREG BROUGHT IN A LARGE CHE 
CK."IGOTO 1980 

4160 SENS="IT IS UP TO THEM TO WORK HA 

RD. "IGOTO 1900 

4170 SEN$="PUT A LITTLE MORE EFFORT HE 

RE. "IGOTO 1900 

4180 SEN$="HAVE A GOAL; WORK TO REACH 
IT."IGOTO 1900 

4198 SEN$="ALL GLAD DADS HAD A GLASS J 
AR."IGOTO 1900 

4200 SEN$="IT IS HOW WE WORK THAT COUN 
T5."IGOTO 1988 

4210 5EN$="T0M WAS QUICK TO SEND THE B 

OX. "IGOTO 1980 

4220 SEN$=”REX WILL HAVE MUCH MORE TO 
DO."IGOTO 1900 

4230 SEN$="I WILL GO TO TOWN TO GET TH 
EM."IGOTO 1900 

4240 5EN$="HE CAN LEND A HAND TO THE B 

OY. "IGOTO 1980 

4250 SEN$="I PAID THE MEN FOR THEIR W0 
Dr ■* ■ CflTn 

4268'SEN$="THE WORKER SAID HE STRUCK 0 
IL."IGOTO 1900 

4270 SEN$="SHE SAID WE NEED A NEW CAW 
ER."IGOTO 1980 

4288 SEN$="I BOUGHT THE BIG BOX OF BOO 
"•nnTfl 

4290'SEN5="WE SHOULD SET A GOAL FOR TH 
EM."IGOTO 1988 

4300 SEN$="TRY TO TYPE ALL THE BIG WOR 
DS."IGOTO 1908 

4310 SEN$="WE MAY QUIT THIS WORK AT FI 
VE."IGOTO 1908 

4320 SEN$="YOU HAVE TO WORK FOR TWO DA 
YS."IGOTO 1900 

4330 SEN$="TRY TO GET ONE OR TWO OF TH 
EM."IGOTO 1900 

4340 SEN$="YOUR BEST MEN WILL HELP DO 
IT."IGOTO 1900 

4350 SEN$="HAVE THE BOYS DO THE WORK N 
OW."IGOTO 1900 

4360 5ENS="LET HIM PROVE THE RIGHT THI 
NG."IGOTO 1908 

4370 SEN$="THEY SHOULD READ MY GOOD BO 
OK."IGOTO 1900 

4380 SEN$="SHE CAN DO A BIG JOB THE BE 

ST. "IGOTO 1906 

4398 SEN$="DAUE MADE A CAGE FOR HIS PE 

TS."IGOTO 1900 

5800 GRAPHICS 71 COLOR 1 

5805 COLOR 1 

5810 FOR Y=20 TO 25 

5020 PLOT 55,YIDRAWTO 88,Y 

5040 NEXT Y 

5850 FOR Y=26 TO 37 

5060 PLOT 68,YI DRAMT0 65,Y 

5088 PLOT 83,YIDRAWTO 88,Y 

5100 NEXT Y 

5110 FOR Y=38 TO 58 

5120 PLOT 60,YIDRAWTO 130,Y 

5140 NEXT Y 

5150 FOR Y=34 TO 37 

5160 PLOT 97,YIDRAWT0 103,Y 

5180 NEXT Y 

5190 PLOT 98,33 IDRAWT0 102,33 
5210 PLOT 100,32 I PLOT 122,38 
5230 DRAWTO 118,18 
5248 DRAWTO 122,15 
5250 DRAWTO 126,15 
5260 DRAWTO 138,18 
5270 DRAWTO 126,38 
5280 COLOR 2 
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5290 PLOT 59,58:DRAMTO 50,58 

5310 FOR X=49 TO 19 5TEP ~1 

5320 PLOT X,40:DRAMT0 X,58 

5340 NEXT X 

5350 COLOR 3 

5360 Xl=120:Yl-56 

5370 GOSUB 60O0 

5380 X2=80:Y2=48 

5390 GOSUB 6500 

5392 X3=37:Y3=59:GOSUB 6200 

5395 X3-27:Y3-59:G05UB 6200 

5400 FOR II-2 TO 4 

5410 PLOT 11*18,39 

5420 DRAI4TO 11*10+8,39 

5430 PLOT 11*10+2,38 

5440 DRAMTO 11*10+7,38 

5450 PLOT 11*10+3,37 

5460 DRAMTO 11*10+7,37 

5470 PLOT 11*10+5,36 

5480 NEXT II 

5490 RETURN 

6O00 PLOT XI,Y1 

6810 DRAMTO Xl+4,Y1 

6020 DRAMTO Xl+7,Yi+3 

6030 DRAMTO Xl+7,Yl+7 

6040 DRAMTO X1+4,Y1+10 

6050 DRAMTO X1,Y1+10 

6060 DRAMTO Xl"3,Yl+7 

6870 DRAMTO Xl~3,Yl+3 

6O80 DRAMTO XI,Y1 

6090 RETURN 

6200 COLOR 3 

6205 PLOT X3,Y3 

6210 DRAMTO X3+4,Y3 

6220 DRAMTO X3+6,Y3+2 

6230 DRAMTO X3+6,Y3+6 

6240 DRAMTO X3+4,Y3+8 

6250 DRAMTO X3,Y3+8 

6260 DRAMTO X3~2,Y3+6 

6270 DRAMTO X3~2,Y3+2 

6280 DRAMTO X3,Y3 

6290 PLOT X3+2,Y3+4 

6300 RETURN 

6500 PLOT X2,Y2 

6510 DRAMTO X2+6,Y2 

6520 PLOT X2+7,Y2+1 

6530 PLOT X2+8,Y2+1 

6540 PLOT X2+9,Y2+2 

6550 PLOT X2+10,Y2+3 

6560 PLOT X2+11,Y2+4 

6570 PLOT X2+11,Y2+5 

6580 PLOT X2+12,Y2+6 

6590 DRAMTO X2+12,Y2+12 

6600 PLOT X2+11,Y2+13 

6610 PLOT X2+11,Y2+14 

6620 PLOT X2+10,Y2+15 

6630 PLOT X2+9,Y2+16 

6640 PLOT X2+8,Y2+17 

6650 PLOT X2+7,Y2+17 

6660 PLOT X2+6,Y2+18 

6670 DRAMTO X2,Y2+18 

6680 PLOT X2-1.Y2+17 

6690 PLOT X2-2,Y2+17 

6700 PLOT X2-3,Y2+16 

6710 PLOT X2-4,Y2+15 

6720 PLOT X2~5,Y2+14 

6730 PLOT X2~5,Y2+13 

6740 PLOT X2~6,Y2+12 

6750 DRAMTO X2-6,Y2+6 

6760 PLOT X2-5,Y2+5 

6770 PLOT X2-5,Y2+4 

6780 PLOT X2-4,Y2+3 

6790 PLOT X2-3,Y2+2 

6880 PLOT X2~2,Y2+1 

6810 PLOT X2-i,Y2+l 

6820 PLOT X2+3,Y2+9 

6830 DRAMTO Xl+2,Yl+5 

6840 RETURN 

7000 POSITION 3,3:PRINT tt6;"TYPING" 

7020 POSITION 3,5: PRINT tt6; ■■TRAINER" 

7040 SOUND 0,50,10,8 

7O60 FOR D-l TO 50:NEXT D 

7090 SOUND 6,0,10,8 

7100 SOUND 0,50,10,8 

7120 FOR D-l TO 25:NEXT D 

7130 SOUND 0,0,10,8:SOUND 0,50,10,8 

7140 FOR D-l TO 25:NEXT D 


7150 SOUND 0,42,10,8 

7170 FOR D-l TO 56:NEXT D 

7200 SOUND 0,0,10,0 

7210 SOUND 0,42,10,8 

7230 FOR D-l TO 25:NEXT D 

7240 SOUND 0,50,10,8 

7260 FOR D-l TO 25:NEXT D 

7270 SOUND 0,63,10,8 

7290 FOR D=1 TO 25:NEXT D 

7300 SOUND 0,O,10,8:SOUND 0,63,10,8 

7310 FOR D=1 TO 25:NEXT D 

7320 SOUND 0,56,10,8 

7340 FOR D-l TO 25:NEXT D 

7350 SOUND 0,0,10,8:SOUND 0,56,10,8 

7360 FOR D—1 TO 25:NEXT D 

7370 SOUND 0,50,10,8 

7410 FOR D=1 TO 50:NEXT D 

7420 SOUND 0,63,10,8 

7430 SOUND 1,127,10,2 

7440 SOUND 2,101,10,2 

7450 FOR D=1 TO 100:NEXT D 

7460 SOUND 0,0,10,0 

7470 SOUND 1,0,10,0 

7480 SOUND 2,0,10,0 

7490 RETURN 

8000 GRAPHICS 0 

8010 PRINT :PRINT 

8020 PRINT "YOU MILL SEE A SENTENCE" 
8030 PRINT "ON THE SCREEN." 

8040 PRINT :PRINT "TYPE AND ENTER IT." 
8050 PRINT :PRINT "IF IT IS CORRECT," 
8060 PRINT "THE TRAIN MHISTLE MILL BLO 
H." 

8065 PRINT :PRINT "IF IT IS INCORRECT, 
YOU MILL" 

8066 PRINT "HAVE TIME TO CHECK YOUR TY 
PING." 

8070 PRINT 
OUR SCORE" 

8080 PRINT "AFTER EACH SENTENCE." 

8090 PRINT :PRINT "AFTER TEN SENTENCES 


: PRINT "YOU MILL BE SHOMN Y 


8100 PRINT "YOUR FINAL SCORE IS SHOMN. 


8120 PRINT :PRINT 

8130 PRINT "PRESS 'RETURN' TO CONTINUE 
■ ■ 

8140 B^PEEK(764):IF B<>12 THEN 8140 

8145 SOUND 0,23,10,8 

8146 FOR D-l TO 10-.NEXT D 

8147 SOUND 0,0,10,0 
8150 POKE 764,255:B=255 
8160 RETURN 

9008 GRAPHICS 18 

9010 POSITION 2,3 

9020 PRINT tt6j"RIGHT",RS 

9030 POSITION 2,5 

9040 PRINT 86 ; "MRONG", MS 

9070 GOSUB 7040 

9080 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 640,5,840,793,174,607,803,64,5 

90,917,817,464,452,440,129,7735 

239 DATA 725,450,983,722,456,5,725,462 

,22,569,433,132,605,131,297,6717 

280 DATA 648,797,529,544,574,503,508,5 

03,494,221,836,898,479,154,971,8651 

440 DATA 421,10,892,898,734,599,137,31 

4,957,510,972,506,704,78,347,8879 

1010 DATA 456,568,468,785,718,125,543, 

534,489,973,356,618,247,934,929,8743 

2080 DATA 500,714,75,289,708,867,537,1 

,796,318,377,650,939,275,155,7193 

3070 DATA 893,758,906,727,520,518,522, 

807,631,817,116,872,875,959,913,10834 

4070 DATA 154,798,920,707,961,772,91,9 

87,905,747,41,774,711,956,15,9539 

4220 DATA 901,20,757,28,124,753,764,92 

4,68,41,932,13,971,923,988,8207 
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4370 DATA 959,698,810,980,651,559,484, 

544,580,477,497,543,588,576,547,9493 

5150 DATA 580,599,551,518,536,352,347, 

352,353,363,656,683,320,485,550,7245 

5350 DATA 657,34,949,205,961,382,387,3 

30,299,21,398,19,490,19,405,5466 

5480 DATA 740,808,136,698,730,735,975, 

586,732,729,298,798,651,156,714,9480 

6220 DATA 743,748,747,778,745,742,316, 

662,798,153,722,669,673,679,523,9698 

6560 DATA 528,532,537,902,722.724,725, 

531,532,530,531,630,519,523,517,8983 

6710 DATA 518,519,517,518,762,685,684, 

680,676,665,663,682,747,817,597,9730 

7020 DATA 897,341,520,496,340,515,45,5 

17,344,524,477,343,519,347,522,6747 

7270 DATA 356,525,54,520,354,523,59,52 

5,353,527,357,528,516,296,489,5982 

7470 DATA 491,493,812,56,589,969,673,4 

4,159,494,590,861,734,421,423,7809 

8100 DATA 155,593,773,186,350,523,494, 

713,802,326,223,270,231,305,961,6825 

9080 DATA 803,803 


Graphics 8 Color Demo 


10 GRAPHICS 8:SETCOLOR 2,0,15:SETCOLOR 
1,0,0:COLOR 1 
20 FOR X=0 TO 200 STEP 2 
38 PLOT X,0:DRAMTO X,10 
40 NEXT X 

50 FOR X=1 TO 201 STEP 2 
60 PLOT X,28:DRAMTO X,30 
70 NEXT X 
80 FOR X=0 TO 200 
90 PLOT X,40:DRAMTO X,50 
100 NEXT X 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 137,79,108,393,90,207,399,111, 
225,758,2507 





ENTERTAINMENT 
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MOTORCYCLE 
MAZE RIDER 


16K Cassette 24K Disk 


by Charles Bachand 


Maze Rider is a game in which you roar through a 
twisting maze of tunnels on a motorcycle. You are 
hindered in this feat by the fact that your viewpoint 
is from inside the maze. The display is your window 
into the maze. 

In order to play Maze Rider, a joystick must be 
inserted into port #1. After typing RUN the 
program will initialize and generate an introduction 
screen. The program will ask you to respond to 
questions about game options. The first question is 
"Do you want to leave a trail?” If the answer is yes, 
the game will display a line on the ground where you 
have previously traveled. The "Extra Passages” 
option will add more interconnecting passages to the 
maze. The map option allows you to see a map of the 
maze displaying an overhead view of the game area. 
Motorcycle noise can be eliminated in the last option 
if desired. 

Pushing the joystick forward will move you 
forward within the maze. Pulling back on the joystick 
will make you move backward within the maze. 
Pushing the joystick to the left or right will change 
the direction that you are facing. Pushing the joystick 
to the left will make you turn in a counter clockwise 
direction and pushing to the right will make you 
turn in a clockwise direction. If the map option has 
been enabled, pushing the joystick trigger button 
will display an overhead view of the maze for about 
ten seconds. 

For the technical types out there who are 
interested in how things work, the maze in this game 
is generated using a modified random walk routine 
that stores the X and Y locations it has traveled to 
into two tables, which are stored on page six of the 
computer’s memory. As the cursor walks along, 
generating the maze, the X axis is stored at XPNT+ 
PNTR. The index variable PNTR is then 
incremented by one. This operation continues until 
it runs into a dead end. At this point the program 
starts backtracking back to its origin. The index 
variable PNTR is decremented by one and the last X 
and Y coordinates are pulled from their locations in 
page six. The program then does LOCATEs up, 


down, left and right, looking for an unused space. If 
the program detects such a space around the cursor, 
the maze drawing process is turned back on. The 
cursor continues to advance and retreat until it 
bumps into its origin. □ 


Line 

Explanation 

100-640 

Generates maze 

640-830 

Draws maze interior 

840-1060 

Main program routine 

1070-1110 

End of game. 

1120-1130 

Draws map of maze 

1140 

Draws outline of maze 

1150-1230 

Title and options select 

1240 

Perspective view data 


100 REM *** MOTORCYCLE MAZE RIDER *** 
110 REM * COPYRIGHT 1380 C.BACHAND * 
120 REM 

130 REM *** FOR ANALOG MAGAZINE *** 
140 REM 

150 TOP=PEEK(1063,SWITCH=0 
160 605UB 1150:GQ5UB 1140 
170 PRINT '•!»** GENERATING MAZE GRID * 
*■■ 


189 XC=INT (RND(Z3*((MIDTH-337233*2+3 

130 YC = INTCRND(03 *( (LENGTH-33 7233*2 + 3 

2O0 EX=XC:EY=YC:HPNT=1536:YPNT=1632 

210 5ETC0L0R 1,0,14 

220 COLOR 2; PLOT XC.YC.'CQLOR 1 

230 LNG=INT(RND(03*33*2+2 

240 DIR-INT(RND(03*43 

250 S= (DIR = 03-(DXR = 13 

260 T=(DIR=23-(DIR=33 

270 FOR 1=2 TO LHG STEP 2 

280 LOCATE XC+S*I,YC+T*I,P 

290 IF P AND 1=2 THEN POP :GOTO 230 

30O IF P THEN POP ;LNG=2:GOTO 250 

310 NEXT I:XC=XC+5*LNG:YC=YC+T*LNG 

320 IF PNTR> PMAX THEN PMAX=PNTR:MX=XC: 

MY=YC:M5=5:MT=T 


330 DRAWTO XC,YC:PNTR=PNTR+1 

340 SOUND 0,D2-PNTR*8,10,8 

350 POKE XPNT+PNTR,XC 

360 POKE YPNT+PNTR,YC 

370 GOSUB 600:IF P THEN 330 

380 SOUND 0.D2-PNTR*8,10,2:GOTO 230 

390 XC=P£EK(XPNT+PNTR3 

400 YC = PEEK (YPNT + PNTR3 

410 PNTR=PNTR-1:GOSUB 600 

428 SOUND 0,D2-PNTR*8,18,8 

430 IF P AND PNTR THEN 390 

440 POKE 77,Z:SOUND 8,D2~PNTR*8,18,2 
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450 PLOT XC.YC:IF PHTR THEN 236 

466 COLOR 3:PLOT MX,KY:COL0R i 

470 MAP=ADR£MAPS):IF i-EXTRA THEN 536 

480 FOR 1=1 TO 25 

496 XC=INT£RND£0)«£WIDTH-4))+3 

506 YC=INTCRND£0)*tLENGTH-4))+3 

510 V=CXC+YC)/2:IF INT£Y)= Y THEN 490 

520 PLOT XC,YC:NEXT I 

530 SOUND 0,0,6,0:FOR Y = i TO LENGTH 

540 FOR X = 1 TO WIDTH:LOCATE X,Y,P 

550 POKE MAP+Y*40+X.P:NEXT XlNEXT Y 

560 3 = ~MS:T=~MT:M5=6:FOR 1=6 TO 6 

576 READ XiPOKE XPNT+I.K:NEXT I:P3=0 

580 YPNT=XPNT+8I POKE YPNT-1,79 

596 FOR 1=0 TO 6:POKE YPNT+I,79-CPEEKf 

XPNT+I)+PEEKtXPNT+I-i))/4:NEXT I:GOTO 

848 

600 LOCATE XC+2.YC,Pi 

610 LOCATE XC~2,YC,P2 

620 LOCATE XC,YC+2,P3 

630 LOCATE XC,YC~2,P4 

640 P = P1 AND P2 AND P3 AND P4: RETURN 

650 P1 = 0 > GRAPHICS 6:SETC0L0R i,0,14;PQ 

KE 752,1: PRINT :PRINT " HOOKING ‘HAS," 

MOVES *'; MOVE : MOVE = MQVE + 1 

666 FOR YC=6 TO 6:P2=NR£1,YC) 

670 IF P2=2 THEN G05UB 830 

680 IF NOT P2 THEN POP :GOTO 830 

690 X1 = P1 :X2=PEEKfXPNT + YC) :P1=X2 

700 IF FEET AND YC THEN IF P2=3 AND NR 

£1,YC-1)=3 THEN PLOT 79,PEEK£YPNT+YC-1 

):DRAWTO 79,PEEKCYPNT+YC) 

710 FOR XC=0 TO 2 STEP 2 

720 IF XC THEN Kl=158-Xi:X2=158-X2 

730 XDl=Xl/2:XD2=X2/2 

740 IF NR £XC,YC) THEN 760 

758 PLOT X1,XD1IDRAWTO X2,XD2:PL0T XI, 

79“XD1;DRAW!0 X2,79-XD2:GOTO 790 

760 PLOT XI,XD1:DRAWTO XI,79-XD1:PLOT 

XI,XD2:DRAWTO X2,XD2:PL0T X1,79-XD2:DR 

AWTO X2,79-XD2 

770 IF NR £1,YC + i) THEN DRAWTO H2,XD2 
780 GOTO 808 

796 P2=NR£1,YC+1):IF P2=0 OR P2=2 THEN 
DRAWTO X2,XD2 

880 IF FEET THEN IF YC AND NRCXC,YC)=3 
THEN PLOT 79,PEEKCYPNT+YC):DRAWTO XI, 
PEEK CYPNT + YC) 

810 NEXT XC:NEXT YC:IF NOT NR£1,7) TH 
EX IF NR £0,6) OR NR£2,6) THEN PLOT 79, 
39:PLOT 79,40 
820 RETURN 

830 PLOT H2,XD2:DRAWTO 159-X2,XD2iPLOT 
X2,79-XD2:DRAWTO 159-X2,79-XD2 : RETURN 
840 SOUND 1,256,2,SND*4:COLOR I:MAP=AD 
RCHAP$):IF TOl THEN 860 
858 FOR XC=-1 TO liFOR YC=0 TO 7:NRfXC 
+1,YC)=PEEK(MAP+£MY+YC)*40+MX-XC):NEXT 
YC : NEXT HC:A$="SOUTH":G0TO 920 
860 IF TO-1 THEN 880 

878 FOR XC=-1 TO 1:FOR YC=0 TO 7:NR£XC 
+ 1,YC)=PEEK £MAP+£MY-YC)*40 + MX+XC) :NEXT 
YC:NEXT XClA$="NORTH":GOTO 920 
880 IF SO-l THEN 960 

890 FOR XC=~i TO liFOR YC=0 TO 7;NR£XC 
+ 1,YC)=PEEKCMAP+ CK¥~XC)*40+MX-YC) iNEXT 
YC:NEXT XCiA$="WE5T”:GOTO 920 
900 IF SOI THEN 920 

910 FOR XC = -1 TO liFOR YC=0 TO 7 i NR £XC 
+1,YC5=PEEKCMAP+CMY+XC)*40+KX+YC)INEXT 
vr ■ IIFXT vr * — 

926'POKE 54286,8iSWITCH=16-SHITCH:POKE 
106,TOP-SWITCHIGOSUB 650:POKE 54286,6 
4iPOKE 77,0 

930 IF STICKC0)<13 THEN 930 
940 IF STRIG £0) OR MAP5W=0 THEN 980 
958 IF P3>2 THEN SOUND 0,56,12,6iPRINT 
"64 UHREE LOOKS IS YOUR LIMIT":FOR 1 = 
1 TO 180iNEXT liGOTO 980 
966 GOSUB 1148:P3=P3+1iSETCOLOR 1,0,14 
SPRINT "4>CH£CK MOTORCYCLE MAZE MAP tt" 
; P3 iGOSUB 1120 

978 FOR X=1 TO 18:F0R P=1 TO 4iFOR 1=1 
TO IQ:NEXT I:COLOR Pi PLOT MX.MYiNEXT 
PiNEXT X:SOUND 0,8,6,8:6010 846 
988 SOUND 0,0,0,0iP=5TICK£0):IF P=15 0 
R P=5 OR P=6 OR P=9 OR P=10 THEN 946 


990 IF P=14 THEN MX=MX+S:MY=MY+T:SOUND 
6,120,6, SND*t6 i IF NOT PEEKCMAP+MY*48+ 
MX) THEN MX=MX-SiMY=MY-T:P=8 
1800 IF P=13 THEN MX=KX-SiMY=MY-TiSOUN 
D 0,126,6,5ND*6I IF NOT PEEK£MAP + MY*40 
+MX) THEN MX=MH+5iMY=MY+T:P=0 
1010 IF P=7 OR P=ll THEN P1=S:S=~TiT=P 
1 

1020 IF P=ll THEN S=-5iT=-T 

1030 IF P=0 THEN PRINT "64 ) ►CRASH!!":F 

OR P=15 TO 8 STEP -USOUND 0,120,12,P: 

FOR 1=1 TO 5:NEXT I:NEXT P:P=0:MS=0 

1040 I = MAP + MY*40 + MXiIF PEEK Cl)=2 THEN 

1070 

1050 POKE 1,3:IF P THEN 840 
1060 GOTO 940 

1070 PRINT "64)****# YOU ARE FREE **•*•* 
*":FOR X=1 TO 5:FOR Y=200 TO O STEP -4 
1080 SOUND Z,Y,10,X*3iNEXT Y;FOR 1=1 T 
0 4 I PLOT RND£0)*159,8;DRAWT Q RNDC8)*15 
9,79:NEXT IiNEXT XiSOUND Z,Z,Z,Z 
1090 POKE 186,TOP 

1100 FOR 1=1 TO 108iNEXT I:GOSUB 1148: 
SETCQLOR 1,8,14: PRINT "64) *** YOU'RE 
FINAL MAP ***":GOSUB 1126 
1110 POKE 752,0:END 

1120 MAP=ADRCHAPS)iFOR Y=3 TO LENGTH-2 
:FOR X=3 TO WIDTH-2:COLOR PEEK£MAP+Y*4 
0 + X) 

1130 SOUND 8,290~¥*i4-X.10,6iPLOT X,Y: 
NEXT X:NEXT Y:RETURN 

1140 GRAPHICS 3: COLOR 1:PL0T 1,1:DRAW! 
0 WIDTH,1JDRAWTO WIDTH,LENGTH:DRAWTO 1 
,LENGTH:DRAWTO 1,1:P0KE 752,1:RETURN 
1150 GRAPHICS 2iSETCOLOR 1,0,14:PRINT 
06;" / Motorcycle \":PRINT 06;" / 

Maze rider V.PRIHT O6:0PEN Oi,4,0,“K 


1160 WIDTH=39:LENGTH=19;DP=96:D2=DP*8 
1170 DIM MAPS £860),A$C5) .C$C1),NR£2,7) 
1188 PRINT 06 :PRINT 06:PRINT 06i" E AN 
ALOG 480/880 E": PRINT 06;" 
ng smm " : PRINT 06 

1190 PRINT "64 DO YOU WANT TO LEAVE 
A TRAIL”;:GE7 Ol,A;IF CHR$CA)="Y" THEN 
FEET=1 

1200 PRINT "64 DO YOU WANT EXTRA PAS 
SAGES";:GET #1,A;IF CHRS(A)="Y" THEN E 
XTRA = 1iGOT 0 1218 

1210 PRINT "64 DO YOU WANT TO USE TH 
E MAP";;GET 01,A:IF CHR$£A)=”Y" THEN M 
AP5W=1:GOTO 1220 

1220 PRINT ”64 DO YOU WANT MOTORCYCL 
E SOUND";:GET Oi,A:IF CHR$CA)=”Y" THEN 
SND = 1 

123G RETURN 

1240 DATA 6,28,46,60,68.74,78 




CHECKSUM DATA 
(See pgs. 7-10) 


108 DATA 973,829,80,789,86,469,439.385 
,404,693,788,697,18,363,835,7853 
25fl DATA 747.761,569,387,358.457,828,5 
48,163,. 271,171,179,514,336,458,6739 
40O DATA 438,712,267,423,694.456,100,9 
63,158,901,122,719,82,438.631,7696 
556 DATA 867,379.93.341.481.828,838,76 
9,779,958,394,608,285.382,423,8425 
70O DATA 88,115,608.785,415,343,948.76 
8,733.963,766,874,601.288,886,8953 
858 DATA 254.789.244,770,417,496,244,3 
17,487.497,589,527,451,885,494,7381 
1800 DATA 548,49.452,784,177,429,896,3 
22,873.159,677,368,241.580,79.6639 
1158 DATA 298.82,185,147.995,426,316,4 
95,788,248,3972 
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DINO BATTLE 


24K Cassette 32K Disk 
by Art V. Cestaro III 


Dino Battle is a game of primordial confronta¬ 
tion, a fierce battle between two players. See if you 
can defeat a dinosaur! 

Your goal is to bite your opponent’s dinosaur on 
the back of the neck. By moving your joystick and 
pressing the firing button, you can move your dino¬ 
saur and open and close his mouth. You may make a 
number of attempts before you succeed. Try to bite 
your opponent as many times as you can before the 
time is up. 

Your score is displayed on the side of each dino¬ 
saur at the start of the game. You receive one point 
each time you bite the other dinosaur. □ 


Line 

Explanation 

Y, Y1 

Vertical position of dinosaur 1 

3 

Sets GRAPHIC mode and colors 

12 

Sets time and score 

13-16 

Draws landscape 

80-81 

Prints text 

100-200 

Main loop: checks joystick and 
triggers and increments time 

300-315 

Moves dinosaur figures on screen 

1000-1015 

Turns dinosaur number 1 around 

1100-1115 

Turns dinosaur number 2 around 

3500-3595 

Makes dinosaur 1 open his mouth 
and try to bite the other one 

3600-3710 

Makes dinosaur 2 do the same thing 

3800 

Prints both players’ scores 

3900-3905 

Plots cacti 

3910-3930 

Plots rocks 

4000-4021 

Plots dinosaur 1, fall routine 

4500-4531 

Plots dinosaur 2, fall routine 

4600 

Erases the dinosaur 

4800-4810 

Moves dinosaur away from defeated 
opponent 

5000-5990 

Plots title 


7000-7110 

Opening display 

8000-8220 

End of game 

10000-10035 

Sets up player/missile graphics 

10040-11000 

Reads shape data and stores it in the 

12000-12900 

proper arrays 

Data for shapes 

Name 

Variable 

Time 

Time in seconds of the game 

Score 1 

Players’ scores 

Score 2 

TT 

Timing variable 

X 

Horizontal position of dinosaur 1 

X2 

Horizontal position of dinosaur 2 

DR1 

Direction dinosaur 1 is facing 

DR2 

Direction dinosaur 2 is facing 

DF1 

Area in memory where player data 

DB1 

DF2 

DB2 

Y, Y1 

is poked 

Vertical position of dinosaur 1 

Y2, Y3 

Vertical position of dinosaur 2 

RT, RET, RT1 

Return Flags 

G, H, DD 

Dummy variables 

c, Z, 

I 

Top of RAM: used for setting up 

TF1, TF2 

player/missile area 

Arrays 

Flying dinosaur’s front 

TB1, TB2 

Flying dinosaur’s back 

D1NF1 

D1NF2 

Dinosaur front and back views 

D1NB1 

D1NB2 

DHR 

Dinosaur’s head and mouth open 

Each dinosaur is 

made up of two players, positioned 


next to each other so they make up one dinosaur 
shape. □ 
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PINO BATTLE 


1 REM By Art U Cestaro III 10/13/81 
3 GRAPHICS 7: CLR :POKE 752,1:P0KE 712, 
197:POKE 710,24:POKE 708,99:POKE 709,1 
95 

6 GOSUB 3930 

12 TIME-59:TIM=0:SCORE1=0:SCORE2=0:COL 


OR 1 

13 Y-INT(RND(01*35+101:D=1:FOR H=0 TO 
158 STEP 2:Y1=INT(15*RND(01+Y~5*D1:PL0 
T X,47:DRAHTO X,Y:PLOT X+1,47 

14 DRAHTO X+l,(Y+Yll/2:Y=Y1:IF Y>40 TH 
EN Y-Y-10:D = 2 


15 IF Y<20 THEM Y=Y+10:D=I 

16 NEXT X 

17 GOSUB 3900:GOSUB 3910 
30 GOSUB 7000 

75 RET=0:GOSUB 10000:GOSUB 10O0;GOSUB 
1100 

80 POKE 752,1:POKE 656.0:POKE 657.3:? 
.|": POKE 656 ,0 : POKE 657,28:? 

_ PI 

81 POKE 656,0:POKE 657,12:? 

POKE 656,0:POKE 657,27:? "|+ + | 

E 656,0:POKE 657,16:? 

82 GOSUB 3800 


I": 


POK 


100 TT-TT + 0.2:IF TT>1 THEN TT=0:TINE=T 
IME-l:IF TIME <1 THEN TIME=59:TIM=TIM~1 

104 IF STICK (01=7 THEN X=X+2:IF DR1 = 1 
THEN GOSUB 1000 

105 IF STRIG(01=0 THEN RT=0 :GOSUB 3500 

110 IF STICK(11-7 THEN X2=X2+2:IF DR2= 
2 THEN GOSUB 1110 

111 IF X<55 THEN X = 55 

112 IF X>195 THEN X=195 
115 ON DR1 GOSUB 300,305 

120 IF STICK(1)-11 THEN X2=X2~2:IF DR2 
=1 THEN GOSUB 1100 

130 IF STICK <01=11 THEN X=X~2:IF DRi=2 
THEN GOSUB 1010 

132 IF STRIG (11-0 THEN RT1=8:G0SUB 360 
0 

133 IF X2 <55 THEN X2 = 55 

134 IF X2>195 THEN X2=195 

135 ON DR2 GOSUB 310,315 

169 IF TIM<1 AND TIME<2 THEN POKE 656, 

2 : POKE 657,18:? ,, 0:00":G0T0 8000 

172 IF TIME <10 THEN POKE 656,2:P0KE 65 

7,18:? TIM;":0";TIME:GOTO 180 

175 POKE 656,2 : POKE 657,18:? TIM; ,, : ,, ;T 

IME ■ 11 11 

180’POKE 77,0 

200 GOTO 100 

3O0 POKE 53248,X:POKE 53249,X-8:RETURN 
305 POKE 53249,X-8:P0KE 53248,X:RETURN 
310 POKE 53250,X2-8:POKE 53251,X2:RETU 

RN 

315 POKE 53251,X2:P0KE 53250,X2-8:RETU 

RN 

1000 DR1=2:F0R G=1 TO 4:P0KE DB1 + G,0:N 
EXT G:Y=65:Yl = 69:DF1=Y+J:DB1=Y1+J1:FOR 
G=i TO 18:POKE DB1+G,DIN81CG1 
1005 POKE DF1+G,DINF1 (G1 !NEXT G:FOR G = 
19 TO 22:POKE DF1+G,DINF1(G1:NEXT G:RE 
TURN 

1010 DR1 = 1:FOR G-l TO 4:P0KE DF1+G,0:N 
EXT G:Y=69:Y1=65:DF1=Y+J:DB1=Y1+J1:FOR 
G-l TO 18:POKE DF1+G,DINB2(G1 
1015 POKE DB1+G,DINF2CGI :NEXT G : FOR G= 
19 TO 22:POKE DB1+G,DINF2CGI:NEXT G:RE 
TURN 

1100 DR2 = 2:FOR G=1 TO 4:P0KE DB2+G,0:N 
EXT G:Y2 = 65: Y3=69:DF2 = Y2 + J2:DB2 = Y3 + J3: 
FOR G = 1 TO 18:POKE DF2+G,DINF2CGI 
1105 POKE DB2+G,DINB2 (G1 :NEXT G : FOR G= 
19 TO 22:POKE DF2+G,DINF2CGI:NEXT G:RE 
TURN 

1110 DR2=l:F0R G=1 TO 4:P0KE DF2+G,0:N 
EXT G:Y2=69:Y3=65:DF2=Y2+J2:DB2=Y3+J3: 
FOR G = 1 TO 18 : POKE DF2 + G,0INB1CGI 
1115 POKE DB2+G,DINF1CGI:NEXT G:FOR G = 
19 TO 22:POKE DB2+G,DINF1CGI:NEXT G:RE 
TURN 

3500 ON DR1 GOTO 3510,3520 
3510 BB=DB1:GG=3590:GOTO 3550 
3520 BB=DF1:GG=3580 
3550 GOSUB GG 


3555 FOR G=50 TO 180:S0UND 6,G,10,15:5 
OUND 0,100-CG-501,10,15:NEXT G:SOUND O 
,0,0,0 

3560 ON DR1 GOTO 3563,3565 

3563 POKE BB , 0:FOR G=1 TO 6:P0KE BB+G, 

DINF2 CGI :NEXT G:GOTO 3591 

3565 POKE BB,0:FOR G = 1 TO 6:P0KE BB+G, 

DINF1CGI:NEXT G:GOTO 3591 

3570 RETURN 

3580 POKE BB+6,224:FOR G=0 TO 5:P0KE B 
B+G,DHRCG+1I .‘NEXT G : RETURN 

3590 POKE BB+6,7:FOR G=0 TO 5:P0KE BB+ 
G,DHLCG+11:NEXT G:RETURN 

3591 IF RT-1 THEN RETURN 

3592 IF DR1=2 AND DR2=1 AND PEEK(53260 
1=12 THEN GOSUB 4500 

3593 IF DR1 = 1 AND DR2 = 2 AND PEEK (53261 
1=12 THEN GOSUB 4500 

3595 POKE 53278,0:RETURN 
3600 ON DR2 GOTO 3610,3620 
3610 BB=DB2:GG=3580:G0T0 3650 
3620 BB=DF2:GG=3590 
3650 GOSUB GG 

3655 FOR G=50 TO 100:SOUND O,G,10,15:S 
OUND 0,1O0-CG-50I,12,10:NEXT G:SOUND 0 
,0,0,0 

3660 ON DR2 GOTO 3663,3665 

3663 POKE BB,O:FOR G=1 TO 6:P0KE BB+G, 

DINF1CGI:NEXT G:GOTO 3700 

3665 POKE BB,0:FOR G=1 TO 6:P0KE BB+G, 

DINF2CGI:NEXT G 

3700 IF RTi=l THEN RETURN 

3701 IF DR2=2 AND DR1=1 AND PEEK(53262 
1=3 THEN GOSUB 4O06 

3705 IF DR2=1 AND DR1=2 AND PEEK(53263 

1=3 THEN GOSUB 4000 

3710 POKE 53278,OlRETURN 

3800 POKE 656,2:POKE 657,6:? SCOREl;" 

":POKE 656,2:POKE 657,31:? SC0RE2;" 

■I ; RETURN 

3900 COLOR 2:FOR J=1 TO 4:H=INTC45+RND 
(01*101:G=RND(01*145+10:GOSUB 3903:NEX 
T J:RETURN 

3901 DRAHTO G+2,H+5:DRAWTO G+2,H+3:RET 
URN 

3903 PLOT G,H:DRAWTO G,H+9:PL0T G,H+4: 
DRAHTO G~2,H+4:DRAWTO G~2,H+1:PL0T G,H 
+ 5 

3905 DRAHTO G+2,H+5:DRAHTO G+2,H+3:RET 
URN 

3910 COLOR l:FOR J=1 TO 3:H=48+RNDC0I* 
10:G=RND(01*145+10:GOSUB 3913:NEXT J:R 
ETURN 

3911 DRAHTO G+5,H+5:DRAHTO G+3,H+9:RET 
URN 

3913 PLOT G,H:DRAWTO G-5,H+5:DRAHTO G+ 
3,H + 9:DRAHT0 G,H:DRAHTO G + 4,H + 1 
3915 DRAHTO G+5,H+5:DRAHTO G+3,H+9:RET 
URN 

3930 COLOR 3:FOR G=79 TO 47 STEP -1:PL 
OT 0,G:DRAHTO 159,G:NEXT G:RETURN 
4000 BB1=DF1:BB2=DB1:GOSUB 4600 
4003 Y=75:Y1=74:DF1=Y+J:DB1=Y1+J1 

4005 ON DR1 GOSUB 4010,4020 

4006 RTl=i:GOSUB 3600:GOTO 4810 

4010 FOR G=1 TO 3:POKE DB1+G,DLFCGI:PO 
KE DF1+G,DLBCGJ:SOUND 0,120,8,15~G:NEX 
T G 

4011 POKE DF1 + 10 , DLB (101 .‘POKE DF1+11,D 
LB (111 :FOR G = 1 TO 6:S0UND 0,120,8,15-G 
:FOR HH=1 TO 10:NEXT HH:NEXT G:RETURN 

4020 FOR G = 1 TO 9 : POKE DB1 + G,DRBCGI :PO 
KE DF1 + G,DRF(G1 : SOUND 0,120,8,15-G:NEX 
T G 

4021 POKE DB1+10,DRB(101:POKE DB1+11,D 
RB (111 :FOR G=1 TO 6:S0UND 0,128,8,15-G 
:FOR HH = 1 TO 10:NEXT HH : NEXT G:RETURN 
45O0 BB1=DF2:BB2=DB2:GOSUB 4600 

4503 Y2=74:Y3=75:DF2=Y2+J2:DB2=Y3+J3 
4505 ON DR2 GOSUB 4520,4530 
4510 RT=1:GOSUB 3500:GOTO 48O0 

4520 FOR G=1 TO 9:P0KE DF2+G,DRBCGI:PO 
KE DB2 + G,DRF(G1 :SOUND 0,110,8,15~G : NEX 
T G 

4521 POKE DF2+10,DRB(101:POKE DF2+11,D 
RB(111:FOR G=1 TO 6:SOUND 0,110,8,15-G 
:FOR HH = 1 TO 10: NEXT HH : NEXT G:RETURN 




VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 121 


4530 FOR G = 1 TO 9:P0KE DB2 + G,DLB (G) :PO 
KE DF2+G,DLF(G):SOUND 0,110,8,15~G:NEX 
T G 

4531 POKE DB2 + 18,DLB (10) : POKE DB2+11.D 
LB(11):FOR G = 1 TO 6 : SOUND 0,118,8,15~G 
:FOR HH-1 TO 18 : NEXT HH : NEXT G : RETURN 
4680 FOR G=1 TO 22:P0KE BB1+G,0:POKE B 
B2+G,0:NEKT G:RETURN 

4800 K-INT(RND(0)*145+58):ON DR1 GOSUB 
380,305:GOSUB 1108:SCORE1=SCORE1+10:G 
OSUB 3800:RETURN 

4810 X2-INT(RND(0)*145*50):ON DR2 GOSU 
B 310,315:GOSUB 1000:SC0RE2=SC0RE2+18: 
GOSUB 3806:RETURN 

5800 COLOR 1:PLOT 2G,5:DRAWTG 26,15:PL 
OT 26,5:DR AMT0 31,6:DRAWT0 31,14:DRAMT 
0 26,15:GOTO 5990 

5180 PLOT 36,5:DRAWTO 36,15:PL0T 35,5: 
PLOT 37,5:PLOT 35,15:PL0T 37,15:GOTO 5 
998 

5200 PLOT 42,15:DRAMT0 42,5:DRAWTO 46, 
15:DRAMT0 46,5:GOTO 5990 
5300 PLOT 50,5:DRAMT0 58,15:DRAMT0 55, 
15 ! DROWT 0 55,5: DRAWTO 58,5:G0T0 5990 
5400 PLOT 66,5:DROWT0 66,15:DRAWT0 71, 
15:DROWT0 71,5:DRAMT0 66,5:PL0T 66,10: 
DRAWTO 71,10:GOTO 5990 

5500 PLOT 76,5:DRAMT0 81,5:DRAWT0 81,1 
5 : PLOT 76,5:DRftMTO 76,15:PL0T 76,10:DR 
AWTO 81,10:GOTO 5990 

5600 PLOT 85,5:DRAWTO 91,5:PL0T 88,5:D 
RAWTO 88,15:GOTO 5990 

5700 PLOT 95,5:DRAMT0 101,5:PLOT 98,5: 
DRAWTO 98,15:GOTO 5990 

5880 PLOT 106,5:DROWT0 106,15:DRAWTO 1 
11,15:GOTO 5990 

5906 PLOT 116,5:DRAWT0 116,15:DRAWTO 1 
21,15:PLOT 116,10:DRAWTO 121,10:PLOT 1 
16,5:DRAWT0 121,5:G0T0 5990 
5990 RETURN 

7000 DD-17:DIM TF1(DD),TB1(DD),TF2(DD) 
,TB2(DD) 

7005 FOR G = 1 TO DD:TF1(G)=0:TF2 (G)=0:T 
B1(G)=0:TB2(G)=0:NEXT G 

7010 FOR G=1 TO 14:READ C:TF1(G)=C:NEX 
T G : FOR G-l TO 13:READ C:TB1 (G)=C:NEXT 
G 

7028 FOR G = 1 TO 13,'READ C:TB2(G)=C:NEX 
T G : FOR G = 1 TO 14 : READ C:TF2 (G)=C:NEXT 
G 

7825 RET=0:GOSUB 1800O 

7030 POKE 704,49:POKE 705,49:FOR G = 5 T 
0 19:POKE DF1 + G,TF1(G-4) :NEXT G : FOR G = 
1 TO 13:POKE DB1+G,TB1(G):NEXT G 
7040 FOR X=220 TO 35 STEP ~1:P0KE 5324 
8,X~7:POKE 53249,X:50UND 0,X,18,6:FOR 
H = 1 TO 3 : NEXT H:NEXT X 

7045 FOR G=1 TO 18:P0KE DF1+G,0:POKE D 
BI + G,0:NEXT G 

7851 POKE 704,49:POKE 705,49:FOR G=1 T 
0 13:POKE DB1 + G,TB2(G) :NEXT G : FOR G = 4 
TO 18:POKE DFl+G,TF2(G-3):NEXT G 
7O60 FOR X=30 TO 210:POKE 53249,X:POKE 
53248,X+7:S0UND 0,X,10,6 

7062 IF X=75 THEN GOSUB 5000 

7063 IF X=85 THEN GOSUB 5100 

7064 IF X-91 THEN GOSUB 5200 

7065 IF X = 103 THEN GOSUB 5380 

7066 IF X=119 THEN GOSUB 5400 
7867 IF X=130 THEN GOSUB 5500 

7068 IF X=138 THEN GOSUB 5680 

7069 IF X=144 THEN GOSUB 5780 

7070 IF X=155 THEN GOSUB 5800 

7071 IF X=165 THEN GOSUB 5900 

7075 FOR H-l TO 4 : NEXT H : NEXT X _ 

7O80 ? "N ■ :1 W;1 AJj.'JtrfJEiETg.M i »■ 

" : SOUND 0,90,12,11:SOUND 1,91,12,12:GO 
SUB 10048 

7085 COLOR 0!FOR G=5 TO 10:PLOT 25,G:D 
RAWTO 125,G:PLOT 25,15-(G~5):DRAWTO 12 
5,15-(G-5):NEXT G 

7086 SOUND 0.88.12. 12:S0UND 1.81,1 2.14 

7690 ? "is mS^IBDlXEDII" 

7091 FOR G=1 TO 20:GOSUB 7098:NEXT G 

7092 ? "IS PRESS START " 

7893 FOR G = 1 TO 28:G0SUB 7098:NEXT G:G 
OTO 7090 


7098 IF PEEK (53279)-6 THEN POP :G0T0 7 
100 

7099 RETURN 

7100 ? "N MlMilIMJiliIi.lIj'Hi 

7101 FOR G=1 TO 2:FOR H=15 TO 0 STEP - 
1: SOUND 0,120,8,H 

7105 SOUND 1,122,8,H:FOR J = 1 TO 8:NEXT 
J:NEXT H : FOR F=1 TO 60:NEXT F 
7187 FOR H=15 TO 0 STEP ~1:SOUND 0,110 
,8,H:SOUND 1,112,8,H:FOR J=1 TO 8:NEXT 
J:NEXT H : FOR F = 1 TO 60:NEXT F:NEXT G 
7110 ? "IS" : RETURN 

8000 FOR G=1 TO 18:P0KE 656,0:POKE 657 
,15:? " GAME OVER ":SOUND 0,156,10,14: 

FOR Z=1 TO 15:NEXT Z _ 

8805 POKE 656,0 : POKE 657,15:? 
ami ": SOUND 0,100,10,14:F0R H=1 TO 15: 
NEXT H : NEXT G 

8089 SO UND 8,0,8,8:P OKE 656,0:POKE 657 
13:? "EQSaEDsSI" 

8010 IF SC ORE1>SC6RE 2 THEN 8028 
8013 IF SC0RE2>SC0RE1 THEN 8030 
8015 IF SC0RElrSC0RE2 THEN 8040 

8020 POKE 656,8:POKE 657,3:? " 

":FOR H-l TO 15:GOSUB 8100:NEXT H 

8021 POKE 656,0:POKE 657,3:? _ 

■":FOR H=1 TO 15:GOSUB 8180:NEXT H:GOT 
0 8020 

8030 POKE 656,8:POKE 657,28:? " SCORE 
":FOR H-l TO 15:GOSUB 8188:NE HT H 
8035 POKE 656,0 : POKE 657,28:? "■B3IQ1 
■":FOR H=1 TO 15:G0SUB 8100:NEXT H:GO 
TO 8030 

8840 POKE 656,0:POKE 657,3:? " 

":POKE 656,0:POKE 657,28:? " 

":FOR H = 1 TO 15: GOSUB 8180 
8041 NEXT H 

8045 POKE 656,8:POKE 657,3:? 

|":POKE 656,0:POKE 657,28:? * 

"IFOR H=1 TO 15:GOSUB 8100 

8046 NEXT HlGOTO 8040 

8100 IF PEEK(53279)=6 THEN POP 
200 

8101 RETURN 

8200 SCORE1-0:SCORE2-0:TIM=8:TIME=59 
8210 FOR G=250 TO 0 STEP -3:S0UND 0,G + 
5,10,15:SOUND 1,G+4,10,14:SOUND 2,G+3, 
10,13 

8215 SOUND 3,G+2,10,12:POKE 712,RND(0) 
*255:NEXT G:FOR G=0 TO 3:S0UND G,8,0,0 
:POKE 53248+G,35:NEXT G 
8217 POKE 712,197:G0SUB 3938:GOSUB 390 
0: GOSUB 3918 

8220 POKE 656,0:POKE 657,13:? " 

":P0KE 712,197:GOTO 75 
10000 POKE 559,46:I=PEEK(186)-24:P0KE 
54279,I:POKE 53277,3:P0KE 623,1 
10010 J=I*256+512:J1=1*256+640:J2=I*25 
6+768:J3=I*256+896 

10015 FOR G=J TO J3+128:POKE G,0:NEXT 
G 


SCORE 


SCORE 


SCORE 

SCORE 


IGOTO 8 


10028 POKE 784,165:POKE 705,165:POKE 7 
06,220:POKE 707,220 
10025 X=1O0:Y=17:Y1=16 

10038 DF1=Y+J:DB1=Y1+J1:DF2=Y+J2:DB2=Y 
+ J3 

10835 IF RET=0 THEN RETURN 

18840 DD=22:DIM DINF1 (DD),DINF2(DD),DI 

NB1 (DD),DINB2 (DD),DHR (6),DHL(6) 

10043 CC=11:DIM DRF(CC),DRB(CC),DLF(CC 
),DLB(CC) 

10645 FOR G=1 TO DD:DINF1(G)=0:DINF2(G 
)=0:DINB1(G)=O:DINB2(G)=0:NEXT G 
10050 RESTORE 12500:FOR G=1 TO 18: READ 
C:DINB1(G)=C:NEXT G:FOR G=1 TO 22:REA 
D C:DINF1(G)=C:NEXT G 

10060 RESTORE 12600:FOR G=1 TO 22:READ 
C:DINF2(G)=C:NEXT G:FOR G=1 TO 18:REA 
D C:DINB2(G)=C:NEXT G 

10065 RESTORE 12700:FOR G=1 TO 6:READ 
C:DHR(G)=C:NEXT G:FOR G=1 TO 6:READ c: 
DHL(G)=C:NEXT G 

10066 RESTORE 12800IFOR G = 1 TO 9: READ 
C:DRF(G)=C:NEXT G:FOR G=1 TO CC:READ C 
:DRB(G)=C:NEXT G 
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10068 RESTORE 12300:FOR G=1 TO 3:READ 
C:DLF (G)=C:NEXT G:FOR G = 1 TO CCiREAD C 
:DLB(G)-C:NEXT G 

10070 H=100:Hl-32:X2=150:X3=158:Y=64:Y 
1=68:Y2=64:Y3=68 

18071 DF1=Y+J:DB1=Y1+J1:DF2=Y2+J2:DB2= 
Y3+J3 

11000 RETURN 

12000 DATA 1,6,28,47,63,87,175,31,28,5 
6,56,24,12,4 

12005 DATA 3,6,28,24,56,48,112,112,243 
,252,248,243,158 

12018 DATA 132,36,56,24,28,12,14,14,20 
7,63,31,153,112 

12020 DATA 128,36,56,244,252,234,245,2 
48,56,28,28,24,48,32 

12500 DATA 1,1,1,7,7,3,7,15,7,143,133, 

143,138,158,188,240,224,64 

12510 DATA 28,52,62,122,245,242,224,25 

1,245,240,240,224,132,128,132,224,240, 

112,48,36,36,248 

12600 DATA 56,44,124,34,175,79,7,223,1 
75,15,15,7,3,1,3,7,15,14,12,6,6,31 
12618 DATA 128,128,128,224,224,192,224 
,240,224,241,227,241,99,121,61,15,7,2 
12700 DATA 76,104,208,254,240,224,50,2 
2,11,127,15,7 

12800 DATA 12,15,229,55,255,254,252,24 
8,112,128,128,240,252,31,15,79,39,19,3 
0,12 

12900 DATA 48,240,160,231,252,127,63,3 
1,14,1,1,143,63,248,240,242,228,200,12 
0,48 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 909,124,404,671,656,206,629,300 

,405,209,3,392,475,873,35,6291 

100 DATA 250,499,808,92,769,988,956,83 

5,860,956,964,352,969,677,493,10468 

175 DATA 493,966,685,140,162,188,78,38 

3,495,400,490,657,488,658,495,6778 

3500 DATA 5,527,591,975,775,52,885,887 

,805,95,78,573,304,310,415,7277 

3600 DATA 14,533,598,978,772,61,862,58 

5,272,915,927,403,300,809,606,8635 

3903 DATA 60,614,285,623,945,631,374,9 

4,308,283,99,915,6,940,9,6186 

4500 DATA 113,562,330,832,959,40,936,7 

,440,600,942,627,924,621,208,8141 

5480 DATA 86,69,289,636,440,811,823,78 

4,757,768,778,998,189,221,432,8081 

7051 DATA 557,619,754,762,766,447,463, 

450,469,465,452,456,373,329,212,7574 

7086 DATA 417,639,650,803,61,999,818,5 

31,923,437,219,391,591,605,357,8441 

8010 DATA 215,224,226,614,322,930,194, 

757,501,375,797,983,798,779,585,8308 

8215 DATA 11,115,197,176,270,801,711,9 

73,302,726,404,643,831,619,628,7407 

10065 DATA 811,777,768,769,680,43,279, 

806,564,311,872,333,488,780,373,8654 

1280G DATA 251,140,391 


Moire Demo 


10 DEG 

20 A=INTCl.9*160) 

30 GRAPHICS 8+16 
40 SETCOLOR 2,0,0 
50 FOR 1—0 TO 160 STEP 5 
60 B=INT(1/2) 

70 COLOR 1 
80 PLOT 0,B 
90 DRAHTO 1,160 
100 PLOT A,B 
110 DRAMTO A-I,160 
120 PLOT 0,160-B 
130 DRAMTO 1,0 
148 PLOT A,160-B 
156 DRAMTO A-1,0 
160 NEXT I 

170 IF PEEK C764) 0255 THEN END 
180 GOTO 170 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 217,62,458,287,54,4,732,508,18 

7,758,408,289,838,329,363,5486 

160 DATA 746,161,728,1635 
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TRIPLE THREAT DICE 

I6K Cassette 24K Disk 
by Michael A. Ivins 


Do you like to gamble but can’t afford trips to Las 
Vegas or Atlantic City? If so, then this program is for 
you. By placing your bets carefully, you can be fairly 
sure of a high return, while impulse betting on the 
high odds might make you a big winner — or it might 
make you go broke. 

This game is modeled after a type of gambling 
machine found in Las Vegas casinos. These machines 
use three dice to play and give you several options to 
bet on. Unlike craps, you are betting solely on the 
outcome of a single roll of the dice. You may bet up 
to five coins (normally quarters) on each of the bet¬ 
ting options, with no limit (other than your total 
cash) to how many of the options you choose to bet 
on. 

You use your joystick to position the bet cursor 
next to the option you wish to bet. Pressing the 
trigger button will enter your bet one coin at a time 
until you reach five coins, after which it will not 
accept any more bets on that option. Moving the joy¬ 
stick to the left or right will move the cursor. After 
you have bet as many options as you wish, hold the 
joystick to the right until the pointer appears in the 
box marked "ROLL DICE.” Press the trigger again, 
and the computer will roll the dice. 

After each roll of the dice the computer will dis¬ 
play your win or say "SORRY” if you did not win. 
At this time you have an additional option. If you 
should wish to take your winnings and quit, all you 
need do is pull the joystick toward you. A push on 
the trigger will return you to the betting routine. □ 


1 REM TRIPLE THREAT DICE 

2 REM BY MICHAEL A. IVINS 

3 REM JULY, 1981 

10 DIM BET(313:COUNT=0 

15 GRAPHICS 8:? "THIS IS A GAME PATTER 
NED AFTER A":? "GAMBLING MACHINE IN LA 
S VEGAS." 

28 ? "YOU BET ON THE OUTCOME OF THE RO 
LL OF":? "THREE DICE. YOU HAVE MANY OP 
TIONS YOU" 

25 ? "CAN BET ON. TO SELECT THE OPTIO 
N ON":? "WHICH YOU WISH TO BET, USE TH 
E" 

30 ? "JOYSTICK TO NOUE THE ■>' UNTILL 
IT":? "POINTS TO THE PROPER OPTION. Y 
OU" 


35 ? "THEN ENTER YOUR BET BY PRESSING 
THE":? "TRIGGER. YOU MAY BET UP TO FI 
VE" 

40 ? "DOLLARS ON EACH OPTION." 

45 ? :? "WHEN YOU HAVE FINISHED BETTIN 
G, HOLD":? "THE JOYSTICK TO THE RIGHT 
UNTILL A" 

58 ? "POINTER APPEARS IN THE BOH MARKE 
D":? "'ROLL DIC E’ AN D PRESS TRIGGER." 
68 ? :? "press to begin" 

70 ? "GOOD LUCK! ! !" 

75 IF PEEK(53279)<>6 THEN 75 
90 GOTO 1000:REM DRAW BETTING LAYOUT 
100 M=100:POSITION 7,20:? M; 

110 GOSUB 12O0:REM CLEAR BETS RESET WI 
N 

120 IF C0UNT=0 THEN M=10O 

130 IF STICK(0)-9 OR STICK(03=10 OR ST 

ICK (03 =11 THEN B = B~1:GOSUB 1500 

132 IF STICK(03=6 OR STICK(03-7 OR STI 

CK(03=5 THEN B=B+1:G0SUB 1500 

135 IF B<32 THEN IF BET(B3=5 OR M=0 TH 

EN 160 

140 IF B <32 AND STRIG(03=O THEN BET (B3 
=BET(B3+1:POSITION H,Y:? BET(B3j:SOUND 

0,150,10,15:M=M-1 

141 IF B <32 THEN IF BET(B3=0 THEN POSI 
TION H,Y:? " 

142 IF B<32 THEN IF BET(BJ>0 THEN POSI 
TION H,Y:? BET (B) 

145 POSITION 7,20:? Mj" "; 

148 FOR DELAY=1 TO 20:NEXT DELAY 

149 IF B>32 THEN B = 32 

150 IF B = 32 AND STRIG(03=6 THEN 200 
155 FOR DELAY=1 TO 20: NEHT DELAY 
160 SOUND 0,0,0,0:GOTO 138 

200 C0UNT=C0UNT+1:REM ROLL AND DRAW DI 
CE 

205 GOSUB 2700 

210 Y=0:A=INT(RND(01*6+13:X=10:ON A GO 
SUB 10000,10010,10026,10036,10640,1005 
0 

220 X=14:B=INT(RND(03*6+13:0N B GOSUB 

10000.10010.10020.10030.16640.10050 
230 X=18:C=INT(RND(03#6 + 13 :ON C GOSUB 

10600.10010.10020.18030.16040.10050 
240 D=A+B+C:IF COUNTll THEN C0UNT=1 
256 REM PAY WINNING BETS 

268 IF BET (03=6 OR D<12 THEN 275 

265 MIN=UIN+BET (03 POSITION 6,21:? WIN 

270 POSITION 3,14:? "+"; 

275 IF BET(13=6 OR D>9 THEN 290 

286 WIN=WIN+BET(13:POSITION 6,21:? WIN 

285 POSITION 3,15:? "+"; 

290 IF A<>B OR BOC OR BET (23=0 THEN 3 
05 

295 WIN=WIN+(BET(23*363 :POSITION 6,21: 
? WIN; 

300 POSITION 3,16:? "+"; 

305 IF (A<>8 AND A<>C AND B<>C3 OR BET 
(33=0 THEN 320 

310 IF A=B OR B=C OR A=C THEN UIN=HIN* 
(BET(33*63IPOSITION 6.21:? WIN; 

315 POSITION 3,17:? "+"; 

326 IF A=B AND B=C THEN GOSUB 2000 
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330 IF A=B THEM G=A:GOSUB 2100 

335 IF A=C THEM G=A:GOSUB 2100 

340 IF B=C THEM G=B:GOSUB 2100 

350 IF D<11 THEM G05UB ((D-3J*10)+2200 

352 IF D>10 THEM GOSUB CAB5(Dloi*18J+ 

2200 

360 IF D=17 THEM G05UB 2210:IF D=18 TH 
EM G03UB 220O 

370 H=M+MIN:POSITION 7,20:? M; 

372 IF M=0 THEM 420 

373 IF M>-5000 THEM 500O 
375 IF MIN>0 THEM 40O 
380 GOSUB 2600 

382 POSITION 1,0:? "SORRY"; 

385 IF STRIG(0J=0 THEN POSITION 1,0:? 

" "J:GOTO 110 

390 IF STICK CO)-13 THEN 500 

395 GOTO 382 

408 GOSUB 2500 

402 POSITION 1,0:? "WINNER"; 

405 IF STRIG(0)=0 THEN POSITION 1,0:? 

" "; :GOTO HO 

410 IF STICK(0)=13 THEN 500 

415 GOTO 402 

420 ? "61’M SORRY, BUT YOU HAVE GONE B 
ROKE":? "IF YOU WISH TO START AGAIN WI 
TH A" 

430 ? "NEW BA NKROLL PRESS TO QU 

IT":? "PRESS EIISU" 

440 IF PEEK(53279J<>6 AND PEEK (532793 < 
>5 THEM 440 

450 IF PEEK(532793=6 THEN COUNT=0:GOTO 
90 

460 IF PEEK(532793=5 THEN ? "GOODBYE A 
ND BETTER LUCK NEXT TIME":END 
500 ? "NIT IS A WISE GAMBLER MHO KKMOM 
S WHEN TO QUIT." 

510 ? :? "THANK YOU FOR PLAYING AND GO 
OD LUCK TO YOU THE NEXT TIME." 

520 ? :? "GOODBYE.":END 

1000 GRAPHICS 0:POKE 752,1:POKE 82,1:S 

ETCOLOR 2,12,12:? " 

USE JOYSTICK"; 

1002 SETCOLOR 1,12,0:5ETC0L0R 4,12,12 
1005 ? " TO 

MOVE BET" 

1010 ? ” POI 

NTER" 

1020 ? :? "PAYS 216-1 PAYS 18-1 TOT 
AL PAYS" 


1025 ? 


1030 ? "| 3-ONES || 2- 

216-1|" 

1035 ? "| 3-TWOS || 2- 

72-l|" 

1040 ? "| 3-THREES|| 2- 

36-l|" 

1045 ? "| 3-FOURS || 2- 

21 - 1 |" 

1050 ? "| 3-FIVES || 2- 

14-1|" 

1055 ? "| 3-SIXES || 2- 

10 - 11 " 

106O ? "»-'I—— 

9~11" 

1065 ? "i- 

8- l|" 

1070 ? "| HI (OVER 113 
8 - 11 " 

1875 ? "| LO (UNDER 103 

9- 11" 

1880 ? "| ANY 3 OF KIND 
10 - 1 |" 

1085 ? "| ANY 2 OF KIND 
14-1|" 

1890 ? "I- 

21 - 1 |" 

1095 ? "|-1 

36-l|" 

1100 ? "|CASH: | 

72-l|" 

1105 ? "|WIN: | 

216-1|" 

1110 ? "I-1 


f-ONES | 
15-TWOS | 
2-THREESl 
f-FOURS | 
2-FIVES | 
2-SIXES | 


111 
1-11 
36-l| 
6-l| 


II ROLL| 
II DICE| 


I 10 
I 11 
I 12 

I 13 
I 14 
I 15 
I 16 

I 17 
| 18 


1120 GOTO 110 

1200 POKE 752,1:FOR 1=0 TO 31:BET(I3=0 
INEXT I 

1210 FOR 1=6 TO IMPOSITION 2,1:? " " 

;:P05ITI0N 14,1:? " ";:NEXT I 

1220 FOR 1=14 TO 17:P0SITI0N 2,1:? " 

"':NEXT I 

1230 FOR 1=6 TO 21:P0SITI0N 26,1:? " 

"':NEXT I 

1240 POSITION 19,20:? " 4+ "; 

1270 MIN=0:POSITION 6,21:? " 

1280 B=0:GOSUB 1500 
1290 RETURN 

1500 IF B <0 THEN B=0:IF B>32 THEN B=32 

1510 IF B=0 THEN POSITION 3,14:? ">4 + 
i' • i j^~2 j Y —14 

1511 IF B=i THEN POSITION 3,14:? " 4 + > 
4+ "■:X=2:Y=15 

1512'IF B=2 THEN POSITION 3,15:? " 4+> 
4+ ";:X=2:Y=16 

1513 IF B=3 THEN POSITION 3,16:? " 4+> 
";:POSITION 3,6:? " ";:X=2:Y=17 

1514 IF B=4 THEN POSITION 3,17:? " ";: 
POSITION 3,6:? ">4+ ";:X=2:Y=6 

1515 IF B>4 AND B<9 THEN POSITION 3,B+ 
l:? " 4+>4+ ";:x=2:Y=B+2 

1516 IF B=9 THEN POSITION 3,10:? " 4+> 
";:POSITION 15,6:? " ";:X=2:Y=11 

1517 IF B=10 THEN POSITION 3,11:? " "; 
:POSITION 15,6:? ">4+ ";:X=14:Y=6 

1518 IF B>10 AND B<15 THEN POSITION 15 
,B-5:? ” 4 + >4+ ";:X=14:Y=8-4 

1519 IF B=15 THEN POSITION 15,10:? " 4 
+>";:POSITION 27,6:? " ";:X=14:Y=11 

1520 IF B=16 THEN POSITION 15,11:? " " 
;:POSITION 27,6:? ">4+ ";:X=26:Y=6 

1521 IF B>16 AND B<31 THEN POSITION 27 
,B-ll:? " 4+>4+ ";:X=26:Y=B-10 

1522 IF B=31 THEN POSITION 27,20:? " 4 
+>";:POSITION 19,20:? " 4+ ";:X=26:Y=2 
1 

1523 IF B=32 THEN POSITION 27,21:? " » 
;:P0SITI0N 19,20:? "k.4+F”; 

1550 RETURN 

2000 IF BET(A+33 =0 THEN RETURN 
201O MIN=MIN+(BET(A+33*2163:POSITION 6 
2i;T MIN■ 

2020 POSITION 3,A+5:? "+"; 

2030 RETURN 

2100 IF BET(G + 93 =0 THEN RETURN 

2110 MIN=WIN+BET(G+9J*18:POSITION 6,21 

:? WIN; 

2120 POSITION 15,G + 5:? "+"; 

2130 RETURN 

2200 IF BET (13 + D3 =0 THEN RETURN 
2202 MIN=WIN+BET(13+D3#216:POSITION 6, 
21:? WIN; 

2204 POSITION 27,D+3:? "+"; 

2206 RETURN 

2210 IF BET (13+D3 =0 THEN RETURN 

2212 WIN=WIN+BET(13+DJ*72:POSITION 6,2 

1: 7 NIN * 

2214 POSITION 27,D+3:? "+"; 

2216 RETURN 

2220 IF BET(13 + D3 =0 THEN RETURN 

2222 WIM=WIN+BET(13+DJ*36:POSITION 6,2 

1:? WIN; 

2224 POSITION 27,D+3:? "+"; 

2226 RETURN 

2230 IF BET(13+D1=0 THEN RETURN 

2232 MIN=MIN+BET(13+DJ*21:POSITION 6,2 

1:? WIN; 

2234 POSITION 27,D+3:? "+"; 

2236 RETURN 

2240 IF BET(13+D3 =0 THEM RETURN 

2242 WIN = WIN+BET(13 + D3*14:POSITION 6,2 

l: 7 win■ 

2244 POSITION 27,D+3:? "+"; 

2246 RETURN 

2250 IF BET (13+DJ =0 THEN RETURN 

2252 WIN=WIN+BET(13+DJW10:POSITION 6,2 

l:? WIN; 

2254 POSITION 27,D+3:? "+"; 

2256 RETURN 

2260 IF BET(13 + DJ =0 THEN RETURN 
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2262 WIN=WIN+BET (13+DJ»9:POSITION 6,21 
:? WIN: 

2264 POSITION 27,D+3:? 

2266 RETURN 

2270 IF BET(13+DJ=0 THEN RETURN 

2272 WIN=WIN+BET (13+DJ#8:POSITION 6,21 

:? WIN; 

2274 POSITION 27,0 + 3:? "+"J 

2276 RETURN 

2500 FOR 1=1 TO 10 

2505 FOR 5=48 TO SO STEP 5 

2510 SOUND 0,5,10,10 

2530 NEXT S 

2540 FOR 5=90 TO 40 STEP -5 
2550 SOUND 0,5,10,10 
2570 NEXT S 
2580 NEXT I 

2590 SOUND 0,0,0,0:RETURN 

2600 SOUND 0,200,10,10 

2620 FOR DELAY=1 TO 1O0:NEXT DELAY 

2630 SOUND 0,241,10,10 

2640 FOR DELAY=1 TO 150:NEXT DELAY 

2650 SOUND O,O,0,0:RETURN 

2700 FOR 1=1 TO 20 

2710 FOR S=8 TO 58 STEP 20 

2720 SOUND 0,5,8,15 

2730 NEXT S:SOUND 0,0,0,0 

2740 NEXT I 

2750 POKE 77,0:RETURN 

5800 ? CHR$(1253;"THIS MACHINE HAS NO 
MORE MONEY. 1 ' 

5010 ? :? "IF YOU WISH TO CASH IN YOUR 
BANKROLL":? "AND PLAY AGAIN AFTER THE 


MANAGE-" 

5020 ? " MENT HAS REFILLED IT. T HEN PRE 

ss 11 :? " Email , to quit press EnCQHl." 
5030 IF PEEKI53279J 06 AND PEEK(532793 
05 THEN 503O 

5040 IF PEEK (532793=5 THEN ? "THANK YO 
U FOR PLAYING":? "GOODBYEEND 
5050 COUNT=0:GOTO 1006 


10000 

POSITION 

X,Y:? " 

10001 

POSITION 

X, Y+i:? 

10002 

POSITION 

X, Y+2 :? 

10003 

RETURN 


10010 

POSITION 

X, Y : ? "| 

10011 

POSITION 

X,Y+l:? 

10012 

POSITION 

X,Y+2:? 

10013 

RETURN 


10020 

POSITION 

x,Y:? " 

10021 

POSITION 

X,Y+l:? 

10022 

POSITION 

X,Y+2:? 

10023 

RETURN 


10030 

POSITION 

x,Y:? " 

10031 

POSITION 

X,Y+l: ? 

10032 

POSITION 

X,Y+2:? 

10033 

RETURN 


10040 

POSITION 

X, Y :? "| 

10041 

POSITION 

X,Y+l:? 

10042 

POSITION 

X,Y+2:? 

10043 

RETURN 


10050 

POSITION 

X,Y:? " 

10051 

POSITION 

x,Y+l:? 

10052 

POSITION 

X,Y+2: ? 

10O53 

RETURN 







1055 DATA 543,35,101,873,27,87,67,111, 
102,404,356,257,868,548,199,4584 
1220 DATA 682,780,226,362,614,794,459, 
991,183,191,167,944,79,466,436,7374 
1518 DATA 720,852,599,718,893,935,739, 
182,53,69,784,283,782,193,787,8569 
2200 DATA 905,944,198,799,906,30,199,8 
00,907,35,200,801,908,25,201,7858 
2236 DATA 802,909,31,202,803,910,24,20 
3,804,911,751,204,805,912,751,9022 
2274 DATA 205,806,347,111,418,534,289, 
453,538,509,257,757,623,766,635,7248 
2650 DATA 256,356,281,606,436,511,94,1 
08,973,526,942,831,148,170,208,6506 
10002 DATA 250,49,136,246,240,51,150,2 
12,230,53,902,250,220,55,118,3162 
18041 DATA 216,222,57,120,218,224,59,1 
116 


CHECKSUM DATA 
(See pgs. 7-10) 


1 DATA 503,632,398,141,268,152,341,724 

,364,964,357,926,652,485,701,8200 

90 DATA 7,758,336,439,680,570,166,814, 

491,127,146,339,678,261,339,6151 

160 DATA 157,784,804,588,315,334,580,4 

56,813,248,964,920,252,975,45,8235 

295 DATA 690,951,120,800,962,547,800,8 

07,810,363,393,310,143,562,385,3843 

375 DATA 859,824,605,727,478,749,801,3 

11,496,456,785,583,643,981,307,10125 

460 DATA 704,326,95,158,803,846,105,96 

5,524,223,490,533,705,549,460,7486 
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BICYCLE 


16K Cassette 24K Disk 


by Dan Devos 


Bicycle is a one player game. You are a messenger 
working for the largest shipping company in the 
world. As part of your daily routine, you must run 
memos and invoices from the main shipping offices 
out to the loading and receiving docks. Leaping on 
your trusty bicycle, you proceed across the vast 
parking lot, past rows of idling tractor trailer rigs, 
dodging the many potholes that impede your 
progress. However, the potholes are not the only 
things you have to look out for. The drivers of the 
trucks are in a hurry to leave, and often they can’t 
bother to watch out for one poor little messenger on 
a bicycle! Needless to say, you have to be careful 
where you’re going! 

Playing the game. 

The cyclist is continually proceeding at a fixed 
rate, and he can also move up and down. Every time 
you are hit by a truck or fall into a pothole, you lose a 
cyclist. There is a total of three cyclists in a game. 

Scoring. 

For every space you move, you get one point. For 
every section of the parking lot, there are two truck 
drivers walking to their trucks. If you hit a walking 
truck driver you get 500 points. Watch out! The 
truck drivers can stand over the pot holes and when 
the cyclist hits them he falls into the hole. 

The program. 

This program uses a machine language subroutine 
to move player missile graphics. The program draws 
two rows of trucks in Graphics Mode 1. Then three 
players, exactly the same as the edited characters, are 
put on top of three of the trucks. These trucks are 
erased and the player trucks can then move 
smoothly. The rest of the program just moves the 
players. Type in the program and wait until the 
screen display says "Press Start.” □ 


8 GOTO 30O6O 

1 BB=C0:T=C0;U=C0IV=C0:OIH CHARS{C8),W 
HIGH (C3, C2) : CHflR$ = "FGliUWKZ" 

2 GRAPHICS C17;CHSET=CPE£K{106)-C32)*C 
255:CH0RG=57344:POKE 623,Cl 

3 FOR X=C8 TO 511:POKE CHSET+I,PEEKCCH 
0RG+I3;NEXT I 

4 FOR X=Ci TO €7 


5 CHP0S=CHSET +CA5C{CHARS Cl))~C32)*C8 

6 FOR J=C0 TO C7 

7 REA!) A:P0KE CHP0S+J,A 

8 NEXT J:NEXT I 

9 FOR I = C32 TO 39;P0KE CHSET+X,0256-Cl 
-PEEK CCHORG+I) : NEXT I 

10 POKE 756,CHSET/C256 

15 DATA 0,0,223,149,2.13,85,223.8 

16 DATA 0,16,128,254,127,30.4.0 

17 DATA 8.8,28,20,54,0,0,8 

18 DATA 0,0,28,28,93,42,28,8 

19 DATA 112,112,243,248,252.252,226,22 
6 

20 DATA 226,225,254,254,255,127,181,24 

21 DATA 223.95,27,0,0,0,0.0 

31 B8=C0:Y=C0;SETCQLOR C2.C3,C4 : SETCOL 
OR C3,C0,12:5ETCOLOR Cl,C8,C8:SETC0LOR 
C0,C8,C4 


32 BB=C0:W=C3SPOSITION C5,19:? »C6:”ME 
Hivuv"; POSITION C9.C20:? ttC6; "Umj" 

35 T=C8:U=C0:3£TCOLOR C2,C3,C4:5ETC0L0 
R C3,CO,12 



54 5ETC0L0R Cl,CS,€8:J = INT(CI?*RND{CO) 
+ C2) :K = INTCC4NRND CC8)+C8) 

55 L=INTCCI7*RNDCC0)+C2):M=INTCC4*RND( 
C0)+C8):POSITION J,K:? #C6;"q" 

56 POSITION L, H: ? *tC6:‘'q" 

57 SETCOLOR C0,C8,C4IN-INTtC17»RND CC83 
TC2):0=INT(C3*RND(CO)+ C8) 

66 P=INTCC17*RNDCC0)+C2):Q-INTCC3*RND( 
CO)+C8) :! POSITION N, 0 : ^ ttCS^’V" 

65 POSITION N , 0 + C1 : ? «C6J "U !1 : POSITION 
P,0:? «C6;"v":POSITION P,0+Ci:2 »C6:”U 

if 


70 IF AA THEN 40O8 

100 0A = C1:POKE 752,Cl : POKE 53257,C0:P0 

KE 53258,C8:POKE 53259,C8 

110 PC0L0 = 26 : PC0L1 = 52:PC0L2-52:PC0L3 = 5 

2 

1800 FOR 1-1536 TO 1706:READ A.’POKE I, 
AiNEXT I 

1010 FOR 1=1774 TO 1787:P0KE I,C8;NEXT 


102B PM=PEEK(106)-C16:PMBA5E=C256*PM 
1030 FOR I=PHBA5E+1023 TO PMBASE+2846: 
POKE I,C8:NEXT I 

1040 FOR I=PMBASE+1025 TO PHBASE+1034: 
READ A;POKE I,A:NEXT I 
1050 FOR I=PMBA5E+1281 TO PMBA5E+1299: 
READ A: POKE I,A:NEXT I 

1660 FOR I=P«BASE+1537 TO PMBASE+1555: 
READ A : POKE I,A:NEXT I 

1061 FOR I = PS4BA5E + 1793 TO PMBASE + 1811: 
READ A:POKE I,A:NEXT I 

1070 POKE 794.PCGLO:POKE 705,PCGL1:POK 
E 706,POOL2 SPOKE 707,PCOL3 


VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 127 


1080 PLX=53248:PLY=1780:PLL=1784 
1030 POKE 553,62IPOKE 1788,PM+C4I POKE 
53277,C3IP0KE 54279,PM 
1100 X=USRC16961 

2O00 DATA 162,3,189,244,6,240,89,56,22 

1.240,6.240,83,141,254,6,186,141 

2010 DOTH 255,6,142,253,6,24,169,0,109 

,253,6,24,103,252.6,133,284,133 

2020 DATA 206.189,240.6.133,203,173,25 

4,6,133,205,139,248,6,176,232,46,255 

2030 DATA 6,144,16.168,177,203,145,205 

,169,6,145,203,136,202,203,244,76,87 

2040 DATA 6,160.0,177,203,145,205,169, 

0,145,203,200,202,208,244,174,253,6 

2050 DATA 173,254,6.157,240,6,189,236, 

6.240.48.133.203.24.138.141.253.6 
2060 DATA 109,235,6,133,204,24,173,253 
,6.109,252,6,133,266,189,240,6,133 
2070 DATA 205,183,248,6,170,160,0,177, 

203.145.205.200.202.208.248.174.253.6 
2080 DATA 163,0,157,236,6,202,48,3,76, 
2,6,76,98,228,0,0,104,169 

2090 DATA 7,162,6,160,0,32,92,228,96 
3000 DATA 48,48,32,56,36,56,110,181,16 
5,66 

301O DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3020 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3030 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

4800 POKE PLL,C10 ; POKE PLL + C1,C20I POKE 
PLL+C2,C20:POKE PLL+C3,C20:A = C0:B = 88 
4010 POKE PLX,A+C48:P0KE PLY,B+C32 
4020 G=INT£C4*RND£C0)J+C1ID=G*C16IE=95 
:POKE PLX+C1,D+C48:P0KE PLY+C1,E+C32 
4030 G=G+G:POSITION G,12l? ttC6;" ":POS 
ITION G . 13 I ? HC6;" ":POSITION G,14;? 8 
C6 J " " 

4040 I=INT£C5*RND1C033+C5:F=I*CI6:G=95 
IPOKE PLX+C2,F+C48IPOKE PLY + C2,G + C32 
4050 1 = 1 +1: POSITION 1,12:? 8C6;" 51 I POS 
ITION 1,13:? 8C6;" 11 : POSITION 1,14:? 8 
C6 •" " 

4060 R = INT £C9*RND fC03 3 +C1:H=R*C16:1 = 39 
:POKE PLX + C3,H + C48 .’POKE PLY + C3,I + C32 

4070 R=R+R:POSITION R,C5:? 8C6;" " I POS 
ITION R,C6:? 8C6;" "IPOSITION R,C7:? 8 
C6; " ■' 

4071 POKE 53278,C6:IF BB THEN 4080 

4072 BB = C1 : SOUND C0,200, C10 , C8 : SOUND C 
1,281,CIO.C8 

4073 POSITION C5,18:? ttC6;"press start 

II 

4074 R=R+C1:SETCOLOR C1,R,C8:IF PEEK(5 
32793 OC6 THEN 4073 

4875 POSITION C5,18 : ? ttC6;" 

" I SETCOLOR Cl.C8,C8:SOUND C0.C0,C6,C0: 
SOUND C1,C0,CO,C0 

4880 POSITION C5,C17:? 8C6;"SCORE:";Y. 
4081 IF INT££A/C8J+CIJ*C8+C4>J*C8+C8 6 
R INT£(A/C83+C13*C8+C4<J*C8 THEN 4120 
4090 IF INT((B/C83+C13*C8+C4>K*C8 AND 
INTf£B/C8)+C1)*C8+C4<K*C8+C8 THEN 308O 
0 

4120 IF INTf £A/C8J +C13»C8 + C4>L#C8 + C8 0 
R INTCCA/C83+C13*C8+C4<L*C8 THEN 4148 
4130 IF INTf£B/C8>+C15*C8+C4>M*C8 AND 
INTC(B/C83+C1)*C8+C4<M*C8+C8 THEN 3880 
0 

4140 IF T THEN 4130 

4150 IF INT£CA/C83 + C13*C8 + C4>N*C8 + C8 0 
R INT(£A/C83+C13*C8+C4<N»C8 THEN 4190 
4160 IF INT £ (B/C83 + Cii*C8+'C4>0*C8 AND 
INT { IB/C83 + C13 #C8 + C4 £0*C8+C16 THEN 100 
08 

4190 IF U THEN 4228 

4200 IF INTt(A/C83+C13*C8+C4>P*C8+C8 0 
R INTf(A/C83+C13*C8+C4<P»C8 THEN 4220 
4210 IF INTCCB/C8)+C13*C8+C4>0*C8 AND 
INT£tB/C83+C13*C8+C4<Q*C8+C16 THEN 189 
10 

4229 IF INT((B/C83+C13#C8+C8<63 OR INT 
£(B/C83 + C13*C8 + C8>96 THEN 300O0 


4230 IF NOT STRIG £C03 THEN 9OO0 
4300 E=E _ Ci:POKE PLK+C1,D+C48:POKE PLY 
+C1,E+C32:G=G-C1:POKE PLH+C2,F+C48:POK 
E PLY+C2,G+C32 

4310 I=I+C1:POKE PLK+C3,H+C48:P0KE PLY 
+C3,I+C32 

4688 IF PEEK £532603 THEN 38808 
5808 A=A+C5 

5081 IF STICK £C83=13 THEN B = B + C3 
5002 IF STICK tC83 =C7 THEN A = A + CI 
5083 IF STICK£C03=14 THEN B=B-C3 

5804 IF A>165 THEN 20000 

5805 Y=Y+C1:SOUND Cl,58,C18,C8:SOUND C 
1,C8,C0,C0IPOKE PLK,A+C48;P0KE PLY,B+C 
32:GOTO 408O 

9080 FOR ZZ=C1 TO 30:NEXT ZZ 
9881 IF NOT STRIG£C03 THEN 4388 
9082 GOTO 9801 

10088 T=C1:POSITION N,0:? 8C6;"F":P05I 
TION N,O + Ci : ? 8C6;" ":GOT0 18O60 
10810 U=C1:POSITION P,0 :? 8C6;"F”:POST 
TION P,Q + C1:? 8C6;" " : GOTO 18068 
18060 U=V+Ci:Y=Y+500:FOR KK=C256 TO Cl 
STEP ~C1:SOUND C0,KK,C10,14:NEXT KK:S 
OUND C0,C0,C0,C0:GOTO 4080 
20000 POSITION N , 0 : ? ttC6; " "iPOSITION 
N,O+Cl:? »C6;” "IPOSITION P,0:? »C6;" 

":POSITION P,Q+Cl:? »C6;" " 

2O01O POSITION J,K:? ttC6;" "iPOSITION 
L,M:? ttC6;" " 

2O020 GOTO 35 

30008 W=W~C1:POKE PLX,A+43:POKE PLY,B+ 

C321 FOR XX = 14 TO CO STEP -Cl 

30018 SOUND C0,258,C10,XX:FOR YY=C1 TO 

r? * NFHT VY * HFHT VV 

30820 POSITION N,0 : ? »C6;" "IPOSITION 
N,0 + Cl:? ttC6;" " : POSITION P,0:? «C6;" 

":POSITION P,0+Ci:? »C6;" " 

30030 POSITION J,K:? «C6;" "iPOSITION 
L,Hi? »C6j" " 

30031 POSITION C5,19 I? «C6;"MEN I"I FOR 
Z = CO TO WI POSITION C9 + W,19 I? ttC6j" ";P 
OSITION C9+W,C20I? ttC6;" "iNEXT Z 
30040 IF NOT 14 THEN 31 

38050 GOTO 35 

30868 Cl = lIC2=2IC3=3 IC4 =4 IC5 = 5IC6 = 6IC7 
= 7:C8=8:C9 = 9 :C10 = 10 IC16 = 16:C17 = 17IC28 = 
28 IC32 = 32IC48 = 48IC256=256 
38670 GRAPHICS CllSETCOLOR C2,C8,C0lPO 
5ITI0N C5,C8I? ttC6I"* BICYCLE *":POSIT 
ION C9,C18:? ttC6;"BY" 

38080 POSITION C6,12 I? #C6;"DAN DEVOS" 
30830 FOR T=C1 TO 20OISETCOLOR C0,T,C8 
IPOSITION C5,C8l? ttC6j"* BICYCLE *"INE 
XT TlGOTO 1 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 633,344,396,66S,276,726,280,49, 

214,585,127,436,580,861,385,7157 

19 DATA 280,270,31.833,464,387,401,358 

,16,468,564,29,504,789,386,5780 

108 DATA 665,304.46,296,542,845,568,59 

5,609.612,172,12,272,246,433,6217 

2010 DATA 175.662,640,727,364,533,798, 

647,2.556,537,538,539,378,590,7626 

4020 DATA 957.920,999,940,59.194,351,8 

84.906,101,959,678,731,821,748.10240 

4138 DATA 822,549,766,915.551,753.928, 

833,864,417,868,463,363,8i4,854,18764 

5803 DATA 823,772,423,19.855,743,711,7 

33,948,757,303,307,539,631,763,3327 

3O030 DATA 309,802,886,315,636.321,770 

,187,4826 
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COLOR 

SLOT MACHINE 


24K Cassette or Disk 
by Michael A. Ivins 


The re-defined character set is a powerful tool 
which can be used in many different ways. The 
characters can be used for special animation effects, 
and are especially useful when combined with 
certain types of modified display lists. Finally, they 
can be used to create colorful graphic displays in the 
text mode, GR.O. This last application is the subject 
of this article. 

If you have ever done much playing around with 
GR.8 you know that getting four colors in this mode 
is not as difficult as you might expect. For the new¬ 
comers I include example Program I to show what I 
mean. 

10 GRAPHICS 8:SETCOLOR 2,0,15 

20 SETCOLOR 1,0,0:C0L0R 1 

30 FOR X=0 TO 200 STEP 2:PL0T X,0 

40 DRAHTO X,10:NEXT X 

50 FOR X=1 TO 201 STEP 2:PL0T X,20 

60 DRAHTO X,30:NEXT X 

70 FOR X=0 TO 200:PLOT X,40 

80 DRAHTO X,50:NEXT X 

Program I. 

This may seem to have little to do with re-defined 
character sets, but bear with me, I’m coming to it. 
The example should show what appear to be three 
bars on a white background with blue at the top, red 
next and black at the bottom. The program was 
supposed to draw two sets of evenly spaced vertical 
lines and one solid bar, so what happened? You 
would expect the bottom bar to be black. The only 
differences between the top two bars is in the posi¬ 
tioning of the vertical lines, yet we get the two colors. 


This effect is due to a curious property of the 
graphics screen whose technical name is "artifact- 
ing. ” Simply stated, the principle is that a single pixel 
of GR.8 (the smallest the ATARI will generate) will 
be one color while another pixel one space or any 
odd number of spaces away will have a different 
color. By now you are probably asking, "If this guy 
wants to talk about re-defined character sets, why all 
this stuff about colors in GR.8?” Every character has 
eight bytes associated with it, and the pattern made 
up by those bits which are ones determines the shape 
of the character. Two examples of this are shown in 
Figure 1 with 1A showing the bit pattern of the 
letter "A” and IB showing a percent sign. Each 
pixel has a GR.O character, whether it be text or 
control graphic, is identical to a single pixel of GR.8. 
By applying the same techniques which gave us 
colors in GR.8 to re-defining characters, we can get 
many kinds of colored graphic characters. 


A B 


00000000 

00000000 

00011000 

01100110 

00111100 

01101100 

01100110 

00011000 

001100110 

00110000 

01111110 

01100110 

01100110 

01000110 

00000000 

00000000 

Figure 1. 


There is one important factor which should be 
mentioned at this point. The colors you can get from 

your special characters (or a 

GR.8 display) will 
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depend on the chosen background color and chosen 
luminosity of the foreground. For your own appli¬ 
cations you should experiment with the combina¬ 
tions of foreground and background color which 
gives the effect you want most. For the purpose of 
this article and the game program which accompan¬ 
ies it I use a white background (SETCOLOR 2,0,15) 
and a black foreground (SETCOLOR 1,0,0). 

I give two examples in Figures 2 and 3. For 
greater ease of use I have enlarged the pattern of bits 
so you can see them better than in the previous 
example. I have also labeled the values of the bits and 
given the decimal values that you would poke into 
the character table to make the changes. With the 
specified colors, the character defined in Figure 2 
will give you a solid blue block while the one in 
Figure 3 will make a solid red block. 


128 64 32 16 8 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 


Decimal 
4 2 1 value 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 


Figure 2 (Blue Block). 


128 

64 

32 

16 

8 

4 

2 

1 

Decimal 

value 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 



Figure 

3 (Red Block). 




Simple red and blue blocks alone make for rather 
dull graphics, but I’m sure you can see that by clever 
arranging of the dots you can create many interesting 
shapes. If the shape you want is too large to fit into a 
single 8x8 grid then use two, three or even more 
characters. To give one example of the kinds of 
things that can be done with color graphics 
characters and hopefully have a little fun at the same 
time, I include my program for Color Slot 
Machine. 

Before getting into a description of the game itself 


there is a comment I would like to make. Calcula¬ 
ting out all the numbers for special characters you 
have drawn on graph paper is very slow work and it 
tends to be boring. Fortunately this is the sort of task 
which lends itself to being "computerized.” There 
are, in fact, many character editor programs on the 
market as well as some which have been published in 
magazines. These all allow you to make changes in an 
enlarged matrix and see the effects of these changes 
on the normal sized character. They let you save the 
special character set or "font” for use with your own 
programs. I used such a program which went as far as 
writing the actual subroutine that does the work in 
the Slot Machine game. 

The game. 

After the title display, the program will draw a 
colorful slot machine on the screen making use of 
several kinds of colored graphics characters. There 
are two ways to play, which you choose by pressing 
the OPTION button any time there is no bet placed. 
For those who might be unfamiliar with slot 
machines I will describe the options. Single line play 
uses only those symbols which line up in the center 
of the pay windows. In this version additional 
"coins” bet give bigger payouts when a winning 
combination comes up. The five line version gives 
more ways to win by adding top, bottom and dia¬ 
gonal paylines for the number of coins played. Single 
line play can pay more when it pays, but the five line 
version can give more ways to win so you win more 
often. 

Playing the game itself is simple. To enter a single 
coin bet, press the trigger button of the joystick and 
release. If you wish to bet the maximum bet of five, 
simply hold the trigger button down until the beeps 
stop. In the single line version the paychart changes 
to reflect payout for the size of the bet, while the five 
line version employs line pointers to indicate how 
many lines are in play. When you have made your 
desired bet, move the joystick in any direction to 
spin the reels. More details are given in the program 
documentation. Happy gambling! □ 


PROGRAM DOCUMENTATION 

The first thing the program does is to jump to the 
routine which alters the character set and since that is 
the main thing I wish to illustrate, I will cover this 
first. 

Line 32000 The first step resets RAMTOP. 
Next a graphics command to set the new top of 
memory. Now we poke the location of the new 
character set. 

Line 32005 This defines a machine language 
routine which will copy the old character set out 
of ROM into the protected area of RAM. 

Lines 32010-32015 These lines are here to 
give you something to look at while the char¬ 
acter set initializes. You won’t see anything at 
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this point since the area pointed to by CHBAS 
(location 764) is blank. 

Line 32020 This executes the machine 
language routine so that the material printed in 
the previous lines can now be seen on the screen. 

Lines 32030-32040 Now we make the 
actual changes. We first read the number that 
tells where to start and then put in the new 
numbers. Some of the characters look a bit 
funny (like a cluster of cherries with a blue leaf 
or a purple bell) but this is the best I could do 
with these colors. 

Now we return to the main program and from this 
point I will take things in the sequence they are 
shown in the program. 

Lines 10-11 These set up the reels of 30 
"symbols” on each. If you wished to change the 
odds of the game, this is the place to do it. You 
could make it harder to win by changing the 
symbols or by adding no pay symbols or blanks. 

If you wanted to, you could set up the reels so 
that you would win on every play, which I 
would consider to be boring 

Line 30 Jumps to the routine which draws 
the machine. 

Lines 40-100 Here we set the initial values 
for game counters and display them. This also 
lets you know you are playing the one line 
version. 

Line 120 This displays the betting prompt. 

Line 125 If the bet is the maximum or the 
bankroll is zero then the betting routine is 
skipped. 

Line 130 Wait for trigger press, increment 
bet, decrement bankroll and start sound. Also 
gosub to change the paychart. 

Line 135 Jump to the five line version if 
OPTION is pressed and bet is zero. 

Line 145 Erase play prompt if bet reaches 
maximum. 

Line 150 A delay is slow betting. 

Lines 160-168 Display bet, shut off sound, 
display bet. 

Lines 170-175 Return to betting loop if 
stick not moved or if stick moved but bet zero. 

Line 180 Zero out the attract mode. 

Lines 290-310 Jumps to the routine that 
animate the handle and spin the reels. 

Lines 311-315 Reads the symbols on the 
payline and jumps to payroutine. 

Lines 320-327 Calculates the proper length 
of windsound and jumps to that routine. 

Lines 330-340 Resets bet to zero and if any 
money is left you are returned to the betting 
routine. 

Lines 350-420 This is the routine that is 
activated if you go broke. It resets the left 
margin, erases the paychart and then gives you 
your quit or start over options. Starting over 


redraws the machine and paychart and resets all 
values to beginning levels. Quitting naturally 
ends the game. 

Lines 500-590 The functions here are 
similar to the betting loop of the single line 
version. The main difference is in setting line 
pointers instead of changing the paychart. 

Lines 600-610 This reads all payable 
locations. Caution should be noted here. Be 
sure when you type these lines in that you use 
the abbreviation LOC, for LOCATE and POS, 
for POSITION, or you won’t get everything in 
on those lines. 

Lines 620-676 This section checks tor 
winning combinations and jumps to the payout 
routine if one is present. I originally tried to 
make this section more brief, but kept getting 
errors. 

Lines 680-698 Checks for win and goes to 
sound routine if appropriate. 

Lines 700-720 Resets bet, erases line 
pointers and jumps back to betting routine if 
not bankrupt. 

Lines 1000-1055 This creates the siren for 
winning and is a simple tone with rising and 
falling pitch. 

Lines 1300-1360 This is the routine which 
resets the paychart according to the size of the 
bet in the one line play version. 

Lines 2000-2090 This is the routine 
which actually draws the machine. Notation 
should be made here that the paychart is not 
truly complete. Most combinations will pay 
with a bar (single or double) on the last reel. I 
did not have room to fit this on the screen. 

Lines 2300-2390 This animates the handle 
by first erasing the knob and redrawing it lower 
and doing the reverse by drawing a section of 
the handle and the knob one space higher. This 
routine also clears any old wins. 

Lines 2400-2495 This is the payout 
routine for the single line version. 

Lines 2600-2690 This is the super jackpot 
routine and is triggered if three of the "seven” 
symbols appear on the center line with maxi¬ 
mum bet in the one line version and on the fifth 
line with maximum bet in the five line version. 
This has first an explosion sound, a slower siren 
than the regular windsound followed by another 
explosion. Then the words "SUPER JACK¬ 
POT!!!” are flashed. I suggest that you type in 
"GOSUB 2600” from the direct mode as you 
won’t be seeing much of this routine unless you 
change the odds. 

Lines 2950-3180 This animates the spin of 
the reels. I had originally tried to make the reels 
turn two full spins plus a random bit extra, but 
this slowed down the action of the game too 
much, doing it from BASIC. Therefore we just 
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assume those spins without showing them and 
take a certain number plus a random amount. 
From this point the reels are moved visibly by 
a fixed number of spaces for each reel. 

Lines 4000-4080This is the pay routine for 
the five line version. □ 


1 REM COLOR 5L0T MACHINE 

2 REM BY MICHAEL A. IVINS 

3 REM NOVEMBER 1381 

4 GOSUB 32000 

10 DIM LS(68),M5(60),RS(60),PAYS(9):OP 
EN tt2,12,0, "5 : " : MIN5OUND=1000 : FPAY=400 
0:SPIN=2950 

11 PAYS=" hk— — ••2[D" :CH=97:DB=146:SB=16 

0 

15 LS="abcdefghMabghefcd:Z 9 hcdHef i jc 
dghcdghScdefcdcdabghefcdcdefgh'* 

20 MS="abHefghef abghefcdIZZefcdabefghi 
jef abcdgh“ef abefOghabcdefcd" 

25 R$="ghcdefISghefghefcdI2cdcdefBcdi 

JghWcdghScdcdefghefSefefcd" 

30 BANKROLL=100:BET=0:MIN=0:L=1:M=1:R= 
1 

40 GOSUB 20OO:REM DRAM MACHINE 
30 P05ITI0N 20,20:? "1 LINE PLAY" 

100 POSITION 20,22:PRINT "BANKROLLB 
ANKR0LL:POSITION 20,23:PRINT "BET:BE 
T;:POSITION 30,23:PRINT "WIN:";HIN; 

12 0 IF BET <5 THEN P OSITION 20,21:PRINT 


1PLAV 1 TO 5 COINS! 


125 IF BANKROLLED OR BET = 5 THEN 145 
130 IF STRIG (O)= 0 THEN BET=BET+1:GOSUB 
1300 : SOUND 0,50,10,14:BANKR0LL=BANKR0 
LL-1 

135 IF PEEK(53273)=3 AND BET=0 THEN 50 
0 

145 IF BET=5 THEN POSITION 20,21:? " 

fl ■ 

150 FOR DELAY:: 1 TO 5: NEXT DELAY 
160 P05ITI0N 24,23:PRINT BET; 

165 SOUND 0,0,0,0 

168 POSITION 23,22 : PRINT BANKROLL;" "; 
170 IF STICK (0) = 15 THEN 120 
175 IF BET = 0 THEN 120 
180 POKE 77,0 

230 GOSUB 230O:REM PULL HANDLE 

310 GOSUB SPIN 

311 LOCATE 5,8,LM:POSITION 5,8:? CHRS ( 
LM) 


312 LOCATE 8,8,MM:POSITION 8,8:? CHRS ( 

MMJ 

313 LOCATE 11,8,RM:POSITION 11,8:? CHR 
$ CRM) 

315 GOSUB 2400 

320 IF WIN>0 AND MIN<BET*10 THEN DUR=2 
:GOSUB MINSOUND 

325 IF MIN>=BET*10 AND MIN<BET*25 THEN 
DUR=3:GOSUB MINSOUND 

326 IF MIN>=BET*25 AND MIN<=BET*50 THE 
N DUR=5:GOSUB MINSOUND 

327 IF MIN>BET*50 AND MIN<2000 THEN DU 
R-10;GOSUB MINSOUND 

330 BET=0:POSITION 24,23:PRINT BET;" " 


$40 IF BANKROLL>0 THEN 120 
350 POKE 82,20 

360 FOR 1=0 TO 23:POSITION 20,1:? " 

" ■ :NEXT I 

370 POSITION 20,0:?'"I’M SORRY":? "YOU 
HAVE GONE BROKE":? "IF YOU MI5H TO BU 
Y MORE":? "CHA NGE P RESS HHili " 

380 ? "PRESS ET4M»H IF YOU":? "MISH TO 
QUIT" 

330 IF PEEK (53279)<>6 AND PEEK(53279)< 
>5 THEN 330 

40O IF PEEK (53279)=6 THEN POKE 82,2:G0 
TO 11 

420 POSITION 20,18:? "THANK YOU":? "FO 
R PLAYING, BETTER":? "LUCK NEXT TIME": 
END 

500 POSITION 20,20:? "5 LINE PLAY"; 


510 BET=1:GOSUB 1300:BET=0 
520 POSITION 20,22:? "BANKROLL:";BANKR 
OLL;:POSITION 20,23:? "BET:";BET;:POSI 
TION 30,23:? "MIN:";MIN; 

538 IF BET<5 THEN POSITION 20,21:PRINT 


LAY 1 TO 5 COINSl 


532 FOR DELAY=1 TO 5:NEXT DELAY 
535 IF BANKR0LL=0 OR BET=5 THEN 560 
540 IF STRIG(03 =0 THEN BET = BET + 1:BANKR 
0LL=BANKR0LL~1:SOUND 0,50,10,14 
545 IF PEEKC53273)=3 AND BET=0 THEN 30 
550 IF BET=1 THEN POSITION 4,8:PRINT " 

II ■ 

552 IF BET=2 THEN POSITION 4,6:PRINT " 

II ■ 

554 IF BET=3 THEN POSITION 4,10:PRINT 

" 

556 IF BET=4 THEN POSITION 4,4:PRINT " 

“ll ■ 

558 IF BET=5 THEN POSITION 4,12:PRINT 

II lla 

S^O* POSITION 29,22:PRINT BANKROLL;" "J 
:POSITION 24,23: PRINT BET; 

562 IF BET=5 THEN POSITION 20,21:PRINT 

ii 

565 FOR DELAY=1 TO 20:NEXT DELAY 

566 SOUND 0,0,O,0 

570 IF STICK(0)=15 THEN 530 
575 IF BET=0 THEN 530 
580 GOSUB 2300 
590 GOSUB SPIN 

6O0 LOCATE 5,8,LM:POSITION 5,8:? CHRSC 
L M3:LOCATE 8,8,MM:POSITION 8,8:? CHRSC 
MMJ:LOCATE 11,8,RM:POSITION 11,8:? CHR 
S CRM) 

605 LOCATE 5,6,LT:POSITION 5,6:? CHRSC 
LT3:LOCATE 8,6,MT:POSITION 8,6:? CHRS( 
MT) :LOCATE 11,6,RT : POSITION 11,6:? CHR 
$ CRT) 

610 LOCATE 5,10,LB:POSITION 5,10:? CHR 
S(LB):LOCATE 8,10,MB:POSITION 8,10:? C 
HRS(MB):LOCATE 11,10,RB:POSITION 11,10 
:? CHRS (RB) 

620 IF (LM=CH AND MMOCH) OR (LM=CH AN 
D MM=LM) THEN F=LM:5=MM:T=RM:GOSUB FPA 

Y 

621 IF LM=DB AND MM=SB AND (RM=DB OR R 
M=SB) THEN F=LM:5=MM:T=RM:GOSUB FPAY 

622 IF LM=MM AND RM=MM THEN F=LM:S=MM: 
T=RM:GOSUB FPAY 

623 IF LM=DB AND (MM=DB OR MM=5B) AND 
RM=SB THEN F=LM:S=MM:T=RM:GOSUB FPAY 

624 IF LMOCH AND LMODB AND LMOSB AN 
D LMO105 THEN IF LM=MM AND (RM=DB OR 
RM=SB) THEN 629 

625 IF LM=SB AND MM=DB AND (RM=DB OR R 
M=SB) THEN F=LM:S=MM:T=RM:GOSUB FPAY 

626 IF LM=58 AND (MM=DB OR MM=5B) AND 
RM=DB THEN F=LM:S=MM:T=RM:GOSUB FPAY 
628 GOTO 630 

623 F=LM:5=MM:T=RM:GOSUB FPAY 

630 IF BET=1 THEN 680 

631 IF LT=DB AND MT=SB AND (RT=DB OR R 
T=SB) THEN F = LT:S = MT:T = RT:GOSUB FPAY 

632 IF (LT=CH AND MTOCH) OR (LT=CH AN 
D MT=CH) THEN F=LT:5=MT:T=RT:GOSUB FPA 

Y 

633 IF LT = DB AND (MT = SB OR MT = DB) AND 
RT=SB THEN F=LT:5=MT:T=RT:GOSUB FPAY 

634 IF LT=MT AND RT=MT THEN F=LT:5=MT: 
T=RT:GOSUB FPAY 

635 IF LT=SB AND MT=DB AND (RT=DB OR R 
T = SB) THEN F = LT:5 = MT:T = RT:GOSUB FPAY 

636 IF LTOCH AND LT<>185 AND LTODB A 
ND LT<>SB THEN IF LT=NT AND (RT = DB OR 
RT=SB) THEN 640 

637 IF LT = SB AND (MT = SB OR MT = DB) AND 
RT=DB THEN F=LT:5=MT:T=RT:GOSUB FPAY 

638 GOTO 642 

640 F=LT:S=MT:T=RT:GOSUB FPAY 

642 IF BET=2 THEN 680 

643 IF LB=DB AND MB=SB AND (RB=DB OR R 
B = SB) THEN F = LB:S = MB:T = RB:GO SUB FPAY 

644 IF (LB = CH AND MBOCH) OR (LB = CH AN 
D MB=CH) THEN 652 

645 IF LB=DB AND (MB=DB OR MB=SB) AND 
RB=5B THEN F=LB:S=MB:T=RB:GOSUB FPAY 
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646 IF LB=MB AND RB=MB THEN 652 

647 IF LB=SB AND MB=DB AND (RB=DB OR R 
B-5BJ THEN F=LB:5=MB:T=RB:G05UB FPAY 

648 IF LBOCH AND LB<>105 AND LBODB A 
ND LBOSB THEN IF LB=MB AND (RB=DB OR 
RB=SB3 THEN 652 

648 IF LB=SB AND (HB=DB OR MB=SB) AND 
RB=DB THEN F=LB:S=MB:T=RB:GOSUB FPAY 
650 GOTO 654 

652 F-LB:S=MB:T=RB:GOSUB FPAY 

654 IF BET=3 THEN 680 

655 IF LT=DB AND MM=SB AND (RB=DB OR R 
B-SBJ THEN F=LT:S=MM:T=RB:GOSUB FPAY 

656 IF CLT=CH AND MM=CH) OR CLT=CH AND 
MMOCH) THEN 664 

657 IF LT=DB AND CMM=DB OR NN=SB) AND 
RB=5B THEN F=LT:S=NM:T=RB:GOSUB FPAY 

658 IF LT=MM AND RB=MM THEN 664 

659 IF LT-SB AND l-W=DB AND (RB=DB OR R 
B-SBJ THEN F=LT:5=NM:T=RB:G05UB FPAY 

660 IF LTOCH AND LT<>105 AND LTODB A 
ND LTOSB THEN IF LT-MM AND CRB=DB OR 
RB=SB3 THEN 664 

661 IF LT-SB AND CNM=DB OR MM=SB) AND 
RB=DB THEN F=LT:S=MM:T=RB:GOSUB FPAY 

662 GOTO 665 

664 F=LT:S=MM:T=RB:GOSUB FPAY 

665 IF BET=4 THEN 680 

666 IF LB=105 AND MM=LB AND RT=MM THEN 
HIN=MIN+20O0:GOSUB 2600 

667 IF LB=DB AND MH=SB AND CRT=DB OR R 
T-SB) THEN F=LB:5=HM:T=RT:GOSUB FPAY 

668 IF CLB=CH AND NMOCH) OR (LB=CH AN 
D NM=CH) THEN 676 

669 IF LB=DB AND (NM=DB OR MM=SB) AND 
RT-5B THEN F=LB:S=NM:T=RT:GOSUB FPAY 

670 IF LB 0105 AND LB=MM AND RT=MM THE 
N 676 

671 IF LB=SB AND MM=DB AND (RT=DB OR R 
T-SBJ THEN F=LB:5=MM:T=RT:G05UB FPAY 

672 IF LBOCH AND LBO105 AND LBODB A 
ND LBOSB THEN IF LB=HM AND CRT=DB OR 
RT=SB) THEN 676 

673 IF LB=SB AND (NM=DB OR MN=SB) AND 
RT=DB THEN F=LB:S=HM:T=RT:GOSUB FPAY 

674 GOTO 680 

676 F = LB :5=MM:T-RT:GOSUB FPAY 

680 BANKROLL=BANKR0LL+MIN : POSITION 29, 

22: ** BANKROLL' 

685 IF MIN>e AND I4IN<10 THEN DUR=2:G0S 
UB MINSOUND 

690 IF MIN>=10 AND MIH<25 THEN DUR=3:G 
OSUB MINSOUND 

691 IF MIN>=25 AND MIN<=50 THEN DUR=5: 
GOSUB MINSOUND 

695 IF MIN>58 AND MIN<2000 THEN DUR=16 
: GOSUB MINSOUND 

700 POSITION 4,4:? "J";POSITION 4,6:? 

,,J "; :POSITION 4,10:? ,,J "; :POSITION 4, 
12:? "h"; 

705 BET=0:POSITION 24,21:PRINT BET; 

710 IF BANKR0LL>0 THEN 530 

720 GOTO 350 

1000 REM MINNER SOUND 

1010 FOR 1=1 TO DUR 

1015 FOR S=40 TO 90 STEP 5 

1020 SOUND 0,5,10,10 

1025 NEXT S 

1030 FOR 5=90 TO 40 STEP -5 
1035 SOUND 0,5,10,10 
1040 NEXT S 
1050 NEXT I 

1055 SOUND O,0,0,0:RETURN 

1300 P5=2 

1310 FOR 1=1 TO 8 

1320 POSITION 34,PS:? A5C(PAYS Cl,IJJ*B 
ET;" "■ 

1325 P5=PS+2 
1330 NEXT I 

1340 IF BET<5 THEN POSITION 34,18:? AS 
C CPAYS C9,9J)#BET;" :RETURN 

1350 IF BET=5 THEN POSITION 34,18:? AS 
CCPAYSC9,9)3*10; 

1360 RETURN 

2080 POKE 752,1:? CHRSC125)POSITION 2 
,2:PRINT "HH-t-H-H-H'l-H'K ab P 

AYS 2" 


ab ab 


Cd Cd Cd 


ef ef ef 


gh gh gh 


MIX BARS 


2005 POKE 756,PEEK(106)+1:SETCOLOR 1,0 
,0:SETCOLOR 2,0,15 
2010 PRINT 
2012 PRINT 
PAYS 5' 

2014 PRINT "l-H 
2016 PRINT ,, |■H 
PAYS 10" 

2020 PRINT 
2025 PRINT 
PAYS 14' 

2030 PRINT "hH 
2035 PRINT "I'H 
PAYS 18" 

2040 PRINT 

2045 PRINT 
PAYS 20' 

2046 PRINT 
2048 PRINT 

PAYS 20' 

2050 PRINT 
2055 PRINT 
PAYS 50' 

2060 PRINT 
2065 PRINT 
PAYS 200' 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RETURN 

POKE 752,1 IFOR 1=19 TO 23 
POSITION 20,1 
PRINT " 

NEXT I 
RETURN 

2200 FOR 1=1 TO 5 
2210 _P05ITI0N 20,16:PRINT 


» 2,0.15 

J J JLL II 
J J jff 

■■W. i i J .«r 
i»r 

:: mium u 

:epmmtir = sB 

IIKliJFTFHUi, 


1J IJ 1J 


2066 

2068 

2069 

2070 
2080 
2890 
2100 
2110 
2120 
2130 
2140 


=4 


” H5 ^i 

iwP, 





COINS 


PLAY 1 TO 5 


2220 FOR DELAY=1 TO 18:NEXT DELAY 
2230 POSITION 20,16:PRINT "PLAY 1 TO 5 
COINS"' 

2240 FOR DELAY=1 TO 10:NEXT DELAY 
2250 NEXT I 
2260 RETURN 

2300 POKE 752,1IPOSITION 17,7 
231G FOR 1=1 TO 5 
2320 PRINT " 4+i*"; 

2325 FOR DELAY=1 TO 20:NEXT DELAY 

2330 NEXT I 

2340 FOR 1=1 TO 5 

2350 PRINT "|IFfF"; 

2355 FOR DELAY=1 TO 20:NEXT DELAY 
2360 NEXT I 

2370 MIN=0:POSITION 34,23:? MIN;" "; 
2390 RETURN 

240O IF LM=CH AND HMOCH THEN MIN=BET* 

2 

2410 IF LM=CH AND MM=CH THEN MIN=BET*5 
2420 IF LM=99 AND MM=LM AND RM=MM THEN 
MIN=BET*10 


2425 IF LM=99 AND MM=99 AND (RM=DB OR 
RM=SB) THEN MIN=HIN*10 
2430 IF LM=101 AND MH=LM AND RM=MM THE 
N MIN=BET*14 

2435 IF LM=101 AND MM=101 AND (RM=DB 0 
R RM=SB) THEN MIN=BET*14 
2440 IF LM=103 AND MM=LM AND RM=MM THE 
N MIN=BET*18 

2445 IF LM=103 AND MM=103 AND CRM=DB 0 
R RM=5B) THEN MIN=BET*18 
2450 IF LM=DB AND MM=LM AND RM=MM THEN 
MIN=BET*50 

2452 IF LM=SB AND MM=LM AND RM=MM THEN 
MIN=BET*20 

2453 IF LH=DB AND MM=SN AND (RM=DB OR 
RM=SB) THEN MIN=BET*20 

2454 IF LM=DB AND (MM=DB OR MM=SB) AND 
RM=SB THEN MIN=BET*20 

2455 IF LM=SB AND MM=DB AND (RM=DB OR 
RM=SB) THEN MIH=BET*20 

2456 IF LM=SB AND (MM=DB OR MM=5B) AND 
RM=DB THEN HIN=BET*20 

2460 IF LM=105 AND MM=LM AND RM=MM AND 
BET<5 THEN MIN = BET*200 
2470 IF LM=105 AND MM=LM AND RM=MM AND 
BET=5 THEN MIN=BET*2008:GOSUB 2600 
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2480 POSITION 34,23:PRINT HIN;" ";:BAN 
KROLL=BANKROLL+MIN 

2490 POSITION 29,22:PRINT BANKROLL;" " 
2495 RETURN 

2600 FOR 1=0 TO 200 STEP 5 

2605 SOUND 0,1,0,15 

2610 NEXT I 

2615 FOR 1=1 TO 5 

2620 FOR 5=40 TO 90 STEP 2 

2625 SOUND 0,S,10,10 

2630 NEXT 5 

2640 FOR 5=90 TO 40 STEP -2 

2645 SOUND 0,S,10,10 

2650 NEXT 5:NEXT I 

2655 FOR 1=1 TO 20 

2660 FOR 1=0 TO 200 STEP 5 

2665 SOUND 0,1,0,15 

2670 NEXT I:SOUND 0,0,0,0 

2672 FOR 1=1 TO 10 

2673 FOR DELAY=1 TO 40: NEXT DELAY 

2674 POSITION 20,20:? " HUgjHH 

H"; 

2675 FOR DELAY=1 TO 20:NEXT DELAY 

2676 FOR DELAY=1 TO 20:NEXT DELAY 
2678 POSITION 20,20:? " 

■ I ■ 

2680 NEXT I 

2685 POSITION 20,20:PRINT ■■ 

• I ■ 

2690 RETURN 

2800 FOR 1=1 TO 200 STEP 25 
2810 SOUND 0,I,6,8 
2820 NEXT I 

2830 SOUND 0,O,0,0:RETURN 

2950 L=L+INT(RND(0)*6)»2:IF L>59 THEN 

L=L-60 

2960 M=M+16+INT(RND(0)*6)*2:IF M>59 TH 
EN M=M~60 

2970 R=R+22+INT(RND(0)*6)*2:IF R>59 TH 
EN R=R-60 

3000 POKE 77,O:FOR X=1 TO 15 

3810 POSITION 11,10:PRINT R$(R,R+1):R= 

R+2:IF R>59 THEN R=1 

3020 POSITION 11,8:PRINT R$ (R,R+l) :R=R 

+2:IF R>59 THEN R=1 

3030 POSITION 11,6:PRINT R$(R,R+1) 

3040 R=R-2:IF R<1 THEN R=R+60 
3045 IF X=ll THEN GOSUB 2800 
3050 IF X>10 THEN 3110 

3060 POSITION 8,10:PRINT M$(M,M+lJ:M=M 
+ 2:IF M> 59 THEN M=1 

3070 POSITION 8,8: PRINT M$ CM, M+l) : M=M+ 

2:IF M>59 THEN M=1 

3080 POSITION 8,6:PRINT M$(M,M+1) 

3100 M=M-2:IF M<1 THEN M=M+60 
3105 IF X=6 THEN GOSUB 28O0 
3110 IF X>5 THEN 3160 

3120 POSITION 5,10:PRINT L$(L,L + l):L=L 
+ 2:IF L>59 THEN L=1 

3130 POSITION 5,8:PRINT L$(L,L+l):L=L+ 

2:IF L> 59 THEN L = 1 

3140 POSITION 5,6:PRINT L$(L,L+1) 

3150 L=L~2:IF L <1 THEN L=L + 60 
3160 NEXT X 
3165 GOSUB 2800 

3170 L=L~2:IF L<1 THEN L=L+60:M=M~2:IF 
M<1 THEN M=N+60:R=R~2:IF R<1 THEN R=R 
+ 60 

3180 RETURN 

4O00 IF CHR$(F)="a" AND CHR$CS)<>"a" T 
HEN M=2 

4010 IF F=CH AND S=CH THEN W=5 

4O20 IF F=99 AND S=99 AND T=99 THEN H= 

10 

4825 IF F=99 AND S=99 AND CT=DB OR T=5 
B) THEN 14=10 

4030 IF F=101 AND S=101 AND T=181 THEN 
N=14 

4035 IF F=101 AND S=101 AND CT=DB OR T 
=SB) THEN W=14 

4040 IF F=103 AND 5=103 AND T=103 THEN 
U=18 

4045 IF F=103 AND 5=103 AND CT=DB OR T 
=5B) THEN M=18 

4050 IF F=DB AND S=F AND T=S THEN M=20 
4052 IF F=DB AND S=5B AND (T = DB OR T=S 
B) THEN M=20 


4053 IF F=DB AND CS=DB OR S=SB) AND T= 
SB THEN 14=20 

4054 IF F=SB AND S=DB AND (T=DB OR T=S 
B) THEN U=20 

4055 IF F=SB AND (S=DB OR 5=SB) AND T= 
DB THEN M=20 

4058 IF F=5B AND S=F AND T=S THEN H=2S 
4O60 IF F=105 AND S=F AND T=S THEN W=2 
00 

4065 MIN=MIN+M:POSITION 34,23:PRINT HI 
N; 

4080 RETURN 

10000 U=fl:FOR I=0 TO 200 STEP 25 

10005 SOUND 0,1,0,15 

10006 SOUND 1,1,2,15:SOUND 2,1,4,15 
10010 NEXT I 

10015 SOUND 0,0,O,0:SOUND 1,0,O,O:SOUN 

D 2,8,0,0 

1OO90 STOP 

20000 FOR 1=1 TO 5 

20005 FOR S=0 TO 200 STEP 5 

20010 SOUND 0,S,8,15 

20015 NEXT S 

2O02O FOR S=200 TO 0 STEP -5 

20025 SOUND 0,S,8,15 

20030 NEXT S 

20035 NEXT I 

20040 SOUND 0,0,0,0 

20045 STOP 

32000 POKE 106,PEEK(1O6)-5:GRAPHICS 2: 
5TART=(PEEK(106)+1)»256:POKE 756,START 
/256:POKE 752,1 

32005 DIM XFR5(38)IRESTORE 32016:F0R X 
= 1 TO 38:READ N:XFR$ (X,X)=CHR$(N) :NEXT 
X 

32010 ? 86:" M - MM tt MMMMXMlOt " 

32011 ? 86;" « ftfrllil:! *" 

32012 ? 86;" * Slot **■ 

32013 ? 86;" * maagiE *" 

32014 ? 86;" MMMMKXMMMMMM " 

32015 ? "BY MICHAEL A. IWINS" 

32016 DATA 104,169,0,133,203,133,205,1 
69,224,133,206,165,106,24,105,1,133,20 
4,160,0,177,205,145,203,200 

32017 DATA 208,249,230,204,230,206,165 
,206,201,228,208,237.96 

32020 Z=USR(ADR(XFR$)):RESTORE 32100 
32030 READ X:IF X=-l THEN RESTORE :RET 
URN 

32040 FOR Y=0 TO 7:READ Z:POKE X+Y+STA 
RT,Z:NEXT Y:GOTO 32030 

32100 DATA 520,170,170,170,170,170,170 
,170,170 

32101 DATA 528,170,85,170,85,170,85,17 
0,85 

32102 DATA 536,170,0,170,0,170,0,170,0 

32103 DATA 544,160,160,160,160,10,10,1 

0,10 

32104 DATA 552,80,80,80,80,5,5,5,5 

32105 DATA 560,128,128,160,160,168,168 
,170,170 

32106 DATA 568,2,2,10,10,42,42,170,170 

32107 DATA 584,234,184,46,139,46,186,2 

24.170 

32108 DATA 600,167,28,114,200,114,156, 

39.170 

32109 DATA 608,170,0,170,255,255,170,0 
,170 

32118 DATA 616,1,171,7,175,31,191,127, 
255 

32111 DATA 624,255,127,191,159,175,167 
,171,169 

32112 DATA 776,2,82,82,81,1,81,80,80 

32113 DATA 784,170,168,128,64,64,64,0, 
0 

32114 DATA 792,1,5,5,21,21,5,5,1 

32115 DATA 800,64,80,80,84,84,80,80,64 

32116 DATA 808,2,18,10,42,42,10.10,2 

32117 DATA 816,128,160,160,168,168,160 
,160,128 

32118 DATA 824,1,2,1,2,5,10,21,3 

32119 DATA 832,0,128,64,128,64,160,80, 
128 

32120 DATA 840,85,85,64,0,1,5,4,20 

32121 DATA 848,85,84,4,16,80,64,0,0 

32122 DATA -1 

• 
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CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 536,632,899,895,184,307,678,879 

,220,295,143,351,720,17,548.7364 

130 DATA 158,933,148,360,909,92,994,46 

8,797,966,134,68,248,261,668,7204 

315 DATA 806,170,901,19,825,100,364,78 

6,155,968,421,996,516,310,354,7691 

510 DATA 331,142,28,364,552,940,749,33 

3,334,453,342,473,800,774,350,6973 

566 DATA 101,487,816,825,96,930,995,30 

6,27,725,148,803,578,759,836,8432 

628 DATA 726,175,819,805,105,911,237,8 

39,650,945,734,214,825,612,890,9487 

645 DATA 646,76,646,390,680,737,111,83 

1,733,26,811,137,767,613,838,8042 

662 DATA 746,192,836,995,720,954,798,5 

90,747,461,825,752,161,4^2,7^7 ,16006 

690 DATA 996,245,74,90,719,369,720,55, 

744,95,402,526,271,413,518,6237 

1050 DATA 489,246,280,158,568,667,496, 

408,565,794,71,732,697,143,187,6501 

2916 DATA 760,436,815,167,822,168,181, 

736,991,278,542,614,61,168,807,7546 

2069 DATA 720,241,977,790,616,427,15,4 

92,788,147,589,373,111,375,497,7158 

2260 DATA 793,627,151,542,387,498,154, 

528,390,501,794,799,130,865,610,7769 

2425 DATA 469,248,664,267,687,646,662, 

567,691,520,680,796,269,418,88,7672 

2495 DATA 812,150,565,505,170,97,432,5 

37,289,434,540,368,156,571,407.6033 

2672 DATA 361,399,971,401,403,22,512,1 

64,808,356,320,512,260,328,643,6468 

2970 DATA 689,592,351,313,607,554,746, 

858,246,17,304,508,372,576,227,6960 

3130 DATA 999,295,504,542,960,928,794, 

496,822,983,821,378,545,399,564,10030 

4050 DATA 649,949,978,953,12,710,997,8 

69,793,951,446,245,662,525,488,10227 

20080 DATA 262,370,531,689,687,486,678 

,683,565,495,288,843,671,391,128,7767 

32013 DATA 277,683,590,657,594,768,663 

,960,69,606,40,508,932,128,17,7484 

32107 DATA 702,619,597,366,154,959,307 

,428,122,866,127,406,371,919,754,7697 

32122 DATA 832,832 
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HALLS OF 

THE LEPRECHAUN KING 

16K Cassette 24K Disk 

by Keith Evans and Ted Adkinson 


Alas! The Leprechaun King has awakened from 
his long slumber, and he has taken all of the world’s 
gold. Every nation is bankrupt. The world’s only 
chance is Smiley, the famous gold miner. With his 
dexterity and wit, Smiley just might be able to recap¬ 
ture all of the gold, pick up the magic key, and put 
the gold in a sanctuary. But unless he’s careful, the 
Leprechaun King will give him the Midas touch, 
turning him into a 24-carat gold tombstone. 

When the game begins, take some time to notice 
where everything is positioned. Smiley is in the 
upper middle of the screen, and the Leprechaun King 
is in the upper right hand corner. Throughout the 
maze there are pots of gold. To collect one, just touch 
it. If you look in the lower right corner, you will see 
the magic key surrounded by walls. Collect about 
half of the gold, and the key will move to the center 
of the maze. 

After Smiley gets the key and all of the gold, he 
goes to the sanctuary chamber at the far lower right 
corner, directly to the left of the cross. Push the trig¬ 
ger button, and a section of the wall will disappear. 
This is the entrance to the sanctuary where Smiley 
has to store the gold. Deposit gold by simply touch¬ 
ing the cross. 

Another important part of this game is the gold 
tombstones. When Smiley loses a life, a tombstone 
appears as a resting place for all of the gold he was 
carrying. A new Smiley has to touch the tombstone 
to collect the gold that the old Smiley was carrying. 

You start with three lives. The game is over when 
you use them all up. To see how many lives you have 
left, look in the upper right or left hand corner of the 
screen where vertical bars indicate lives remaining 
(including the one currently in use). 

An expert player might get to the third maze and 
find it is totally different. Two clues about this maze: 
the key appears in the lower middle of the screen, 
and the section of disappearing wall lies directly 
below the cross. □ 


The program. 

Lines 1-10 — Variable initialization, title 
Lines 120-372 —Character set redefinition 
Lines 395-507 — Maze drawing, placing of 
the gold 

Lines 510-624 — Joystick reading, move¬ 
ment of Smiley 

Lines 630-999 — The Leprechaun’s logic 
Lines 1000-1120 — Maze and character set 
data 

Lines 1150-1154 — Lives left indicator 
Lines 1500-1510 — "Midas Touch” sound 
effects 

Lines 2000-2020 — Counts bags of gold 
taken, places key in the maze if enough has been 
taken 

Line 2500 — Draws tombstone, checks men 
left 

Lines 2510-2570 — Erases Smiley’s trail 
Line 2575 —Starts game over when all men 
are used up 

Lines 2610-2700 — Puts the gold Smiley 
was carrying in a tombstone when he is killed 
Lines 3000-3050 — Subroutine to flash 
maze 

Lines 4000-4350 — Actually moves Lepre¬ 
chaun. 

Line 5000 — Plays "Oh, when the saints ...” 
clears screen 

Lines 6000-6007 — Displays score at end 
of game 

Line 6010 — Clears screen 
Lines 7000-8030 — Data for "Oh, when 
the saints...” 

Lines 9000-9130 — Subroutine to play 
"Oh, when the saints. . .” 

Lines 9150-9260 — Plays "Good night, 
ladies...” 
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Lines 9270-9290 — Data for "Good night, 
ladies...” 

Line 9300 — Sound effects of gold being 
cashed in 

Lines 10000-10020 — Color rotation sub¬ 
routine 


1 CLR :X=18:Y=1:MX=17:MY=2:X1=10:Y1=1 

5 GRAPHICS 2+16:? »6;" ":? H6;" " 

6 ? 86;" THE HALLS OF THE":? 86;" L 
EPRECHAN KING":? 86;" " 

7 ? 86;" created":? 86;" " 

8 ? 86 ;" _ b y"; ? 86 ;" " 

9 ? 86;" liEftia EliEl tTTl ":? 86;" ":? 
86;" f-lwif-tlV ITrtii " 

10 FOR ZZZ = 1 TO 20:GOSUB 1O000:NEXT ZZ 
Z 

120 POKE 186,PEEKfl06)-2 
130 GRAPHICS 1+16 
150 A=PEEKC106)*256 
190 SET=PEEKfl06) 

200 POKE 756,SET 
220 FOR C=8 TO 7 
230 POKE A+C,0 
240 HEXT C 
250 FOR C=8 TO 63 
260 READ CHAR 
270 POKE A+C,CHAR 
288 HEXT C 

369 FOR C=64 TO 7i:P0KE A+C,146:HEXT C 

370 FOR C—72 TO 79:P0KE A+C,144:KEXT C 

371 FOR C = 88 TO 87:P0KE A+C,128:HEXT C 

372 FOR C=88 TO 95:READ CHAR-.POKE A+C, 

CHAR:HEXT C 

395 IF TIN>=1 AKD TIM<3 THEH RESTORE 1 
046 

396 IF TIM>=3 THEH RESTORE 700O 

397 TIM-TIM+1 

398 MM-2:IF TIK=1 OR TIM=5 THEH MM=1 
408 READ GRi,GR2,GR3,GR4 

410 IF GR1=-1 THEH GOTO 440 

420 COLOR 35:PLOT GR1,GR2:DRAHTO GR3, G 

R4 

430 GOTO 400 

440 READ G1,G2 

450 IF G1--1 THEN 500 

460 COLOR 130:PLOT G1,G2 

470 GOTO 440 

500 IF TIH<4 THEN COLOR 35:PL0T 3,2:PL 
OT 7,3:PLOT 6,3:PL0T 1,16:C0L0R 32:PL0 
T 12,14 

502 BAGS=8:DBAGS=0:GOLD=0:KEY=8:IF TIM 
<4 THEN COLOR 37:PL0T 18,22 

503 IF TIM<4 THEN RESTORE 1120 

504 IF TIM>=4 THEN RESTORE 7090:LOC0TE 
10,11,ZZ:IF ZZ=32 THEN COLOR 37:PL0T 

10,11 

506 X=18:Y=1:READ RMX:READ RMY:KX-RMX: 
MY=RMY:X1=18:Yl=l 

507 READ SD0,SD01,SD,SD1,SC,SCI,K,E,AX 
,AY,HB 

510 X1=X:Y1=Y 

515 POKE 711,251 

516 POKE 77,0 

520 IF STICK 10)=15 THEN GOTO 580 
530 J=STICKT0) 

540 IF J=ii THEN X=X-1 
550 IF J=7 THEN X=X+i 
560 IF J=14 THEN Y=Y-1 
570 IF J=13 THEN Y=Y+1 

588 LOCATE X,Y,I:IF 1=35 THEN X=X1:Y=Y 
1 

598 IF 1=130 THEN GOSUB 2000 
595 IF 1=38 THEN GOLD=GOLD+DGOLD:BAG5= 
DBAGS:FOR ZZ=-30 TO 30:SOUND 8,ABSCZZ) 
,10,8:NEXT ZZ:SOUND 8,8,8,0 


688 IF 1=1 THEN GOSUB 150O:GOTO 2508 
685 IF 1=37 THEN KEY=1:ZZZ=60:FOR ZZ =6 
0 TO 40 STEP -1:SOUND 0,ZZ,10, 8 :SOUND 
l,ZZZ,10,8:ZZZ=ZZZ-l:NEXT ZZ 
606 SOUND 0,0,O,O:SOUND 1,0,0 ,8 
615 IF J<>15 THEN COLOR 32:PL0T XI,Y1 
620 COLOR 36:PLOT X,Y 

622 IF X=SDO AND Y=SD01 AND KEY=i AND 
STRIG (0 )=8 THEH COLOR 32:PL0T SD,SD1 

623 IF X=SC AND Y=SC1 THEN PGOLD=PGOLD 
+GOLD:COLOR 39:PL0T SC,SCI:X=AX:X1=X:Y 
=AY:Y1=Y:G0LD=8:G0SUB 9300 

624 IF BAGS<=N 8 AND 1=39 THEH 5000 
638 MN=MM*-1 

640 IF MM=1 THEN 510 

650 LOCATE MX-1,MY,D1 

668 LOCATE MX,MY-1,D2 

676 LOCATE MX+1,MY,D3 

680 LOCATE MX.MY+1.D4 

690 IF X<)MX AND YOKY THEN 750 

700 IF X=MX AND MY>Y THEN FD=2:FD1=0 

718 IF X=MX AND MY<Y THEN FD=4:FD1 = 0 

720 IF Y=MY AND HX>H THEN FD=i:FDi=u 

730 IF Y=MY AND MX<X THEN FD=3:FD1=0 

740 GOTO 798 

750 IF MX<X THEN FD=3 

760 IF MX> X THEN FD = 1 

770 IF MY<Y THEN FD1=4 

780 IF MY>Y THEN FD1=2 

790 REM 

795 IF FD1 <>8 THEN 900 

888 IF FD=4 AND D4<>35 THEN RD=4:G0T0 

1150 

810 IF FD=3 AND D3<>35 THEN RD=3:G0T0 
1150 

820 IF FD=2 AND D2<>35 THEN RD=2:G0T0 
1150 

830 IF FD=1 AND Dl<>35 THEN RD=1:G0T0 
1150 

840 RD=IHTCRND(0)*4)+1 
858 IF RD=1 AND Dl=35 THEN 840 

868 IF RD=2 AND D2=35 THEN 840 

878 IF RD=3 AND D3=35 THEN 840 

888 IF RD=4 AND D4=35 THEN 840 

898 GOTO 1150 

988 WAYS=0:IF FD=1 AND Dl<>35 THEN WAY 
5=WAYS+1:Wi=l 

982 IF FD=2 AND D2<>35 THEN MAYS=WAY5+ 
l:W 2 =l 

984 IF FD=3 AND D3<>35 THEN WAYS=WAYS+ 
1:M3=1 

906 IF FD=4 AND D4<>35 THEN MAYS=WAYS+ 
1:M4=l 

908 IF FDi=l AND Dl<>35 THEN WAYS=WAYS 

+1:Mll=l 

910 IF FD1=2 AND D2<>35 THEN MAYS=MAY5 
+1:W22=1 

912 IF FD1=3 AND D3<>35 THEH WAYS=WAYS 
+1:W33=l 

914 IF FD1=4 AND D4<>35 THEN WAYS=WAYS 
+1:M44=l 

916 IF WAYS=2 THEN 4080 
918 IF Wl=l THEN RD=1 
920 IF W2=l THEN RD=2 
922 IF M3=l THEH RD=3 

924 IF H4=i THEH RD=4 

925 GOTO 4070 

926 GOTO 1150 
999 GOTO 510 

1080 DATA 170,84,124,178,146,254,48,18 
8 

1810 DATA 126,60,66,223,209,219,66,66 
1020 DATA 170,85,170,85,170,85,178,85 
1830 DATA 68,126,219,255,189,195,126,6 


1035 DATA 0,0,7,253,85,87,0,8 
1637 DATA 28,54,119,65,119,119,119,127 
1038 DATA 24,24,126,126,24,24,24,24 
1839 DATA 31,35,69,249,137,138,148,248 
1040 DATA 13,13,14,13,2,14,4,14,5,15,4 
,15,5,16,8,16,15,15,16,15,13,16,14,16, 
2,18,5,18,7,18,9,18,15,18,17,18 
1841 DATA 1,0,18,8 

1050 DATA 2,19,3,19,7,19,9,19,11,19,13 
,19,5,20,7,28,16,20,18,20,2,21,3,21,5, 
21,7,21,9,21,14,21.2.22,3,22 
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I860 DATA 1,1,1,5,18,1,18,7,9,1,9,4,16 
,6,16,8,18,12,18,16,16,14,16,17,16,28, 
16,22,13,10,13,11,13,17,13,18 
1070 DATA 9,9,9,10,8,13,8,14,3,16,3,17 
,0,0,0,23,0,23,19,23,19,23,19,0,3,1,9, 
1,11,1,16,1,11,2,16,2,11,4,16,4 
1080 DATA 4,6,9,6,3,3,5,3,6,4,7,4,3,5, 
4,5,11,5,12,5,14,6,16,6,11,7,12,7,2,8, 
6,8,8,8,9,8,11,8,14,8,5,9,6,9 
1090 DATA 11,9,13,9,16,9,17,9,1,10,3,1 
0,6,10,7,10,15,10,17,10,6,11,7,11,9,11 
,11,11,2,12,3,12,17,12,18,12,5,13,6,13 
1095 DATA 10,13,16,17,11,13,11,17,-1,0 
, 0,0 

1100 DATA 4,2,5,5,13,7,4,9,8,9,12,10,1 
8,11,15,12,3,13,9,13,5,14,13,14,12,15, 
4,16,15,17,6,18,4,21,12,22,15,20 
1110 DATA 2,6,-1,0 

1120 DATA 17,2,15,22,16,22,18,22,9,12, 
17,22,-19 

1150 IF 1.1=0 THEN COLOR 8:PL0T 19,0:PL 
OT 0,0 

1151 IF LI=-1 THEN COLOR 9:PL0T 19,0:P 
LOT 0,0 

1152 IF LI=~2 THEN COLOR 10:PLOT 19,0: 
PLOT 0,0 

1154 GOTO 4110 

1500 COUHT=800:FOR ZZ=20 TO 0 STEP -1: 
SOUND 0,COUNT,10,ZZ:SOUND l,COUNT+(ZZ* 
993,18,ZZ:COUNT=COUNT-10:NEXT ZZ 
1510 SOUND 0,0,0,0:SOUND 1,8,0,0:RETUR 

N 

2800 BAGS=BAGS-1:GOLD=GOLD+INT(RND(03* 
1003 +1:DBAGS=DBAGS-1 

2085 FOR ZZ=28 TO 8 STEP ~l:SOUND 8,20 
,ifi,ZZ:NEXT ZZiSuUND 6,8,8,0 
2010 IF DBAGS=~10 OR BAGS=~10 THEN COL 
OR 37:PLOT K,E:COLOR 39:PL0T SC,SCI 
2O20 RETURN 

2500 COLOR 38:PLOT X,Y:REM :LI=LI~1:IF 
LI = ~3 THEN GOSUB 9158:G0SUB 6000:GOTO 
2570 

2510 LOCATE X,Y,ZZ:IF ZZ=36 THEN COLOR 
32:PLOT X Y 

2528 LOCATE X+i,Y,ZZ:IF ZZ=36 THEN COL 

OR 7?•PIOT V+1 V 

2536 LOCATE X-1,Y,ZZ:IF ZZ=36 THEN COL 
OR 32:PLOT X-1,Y 

2540 LOCATE X,Y-i,ZZ:IF ZZ=36 THEN COL 
OR 32:PLOT X,Y-1 

2550 LOCATE X,Y+1,ZZ:IF ZZ=36 THEN COL 
OR 32:PLOT X,Y+l 

2555 LI=LI-l:IF LI=-3 THEN GOSUB 9150: 
GOSUB 6800:GOTO 2570 
2560 COLOR 38:PLOT X,Y 

2570 X = 10 :Y = 1:X1=K:YI = Y:MX=17:MY=2:OMX 
=MX:OKY=MY 
2572 D = 32 

2575 IF LI=-3 THEN LI=0:GOTO 395 
2610 FOR FN = 0 TO 500:NEXT FN 
2617 DGOLD=GOLD:G0LD=8:X=10:Y=1:Xl=10: 
Yl=l 

2620 MX=RMX:MY=RMY 

2630 D = 32 

2700 GOTO 503 

3000 FOR COUNT=0 TO 5 

3O10 SETCOLOR 0,8,8 

3815 FOR ZZ=1 TO 50:NEXT ZZ 

3020 SETCOLOR 0,2,8 

3025 FOR ZZ=1 TO 50:NEXT ZZ 

3830 NEXT COUNT 

3040 SETCOLOR 0,2,8 

3050 RETURN 

4000 RH=INT(RND(03*23 +1 
4O10 IF RM=1 THEN 1110 
4020 IF Ml=l THEN RD=1 
4630 IF M2 = l THEN RD=2 
4840 IF 143=1 THEN RD=3 
4050 IF M4=l THEN RD=4 
4860 GOTO 1150 
4O70 IF Ml1=1 THEN RD=1 
4080 IF H22=l THEN RD=2 
4090 IF H33=l THEN RD=3 
4108 IF H44=l THEN RD=4 
4110 IF RD=0 THEN 4360 
4120 IF RD=1 THEN MX=MX-1 


4130 IF RD=2 THEN MY=MY~1 

4140 IF RD=3 THEN MX=NX+1 

4150 IF RD=4 THEN MY=MY+1 

4155 LOCATE OMX,OMY,ZZ:IF ZZ=36 OR ZZ= 

39 THEN 4162 

4160 COLOR D:PLOT OMX,OMY 
4162 D=32 

4165 LOCATE MX,MY,D:IF D=36 THEN GOSUB 
1500:GOTO 2500 
4170 COLOR 1:PLOT MX,MY 
4175 OMX=MX:OMY=MY 

4180 FD=0:FD1=0:RD=0:D1=0:D2=0:D3=0:04 
=0:HAYS=8:RD=0 

4190 U1=0:142 = 0:143 =0: M4=0: Mil=0:1422=0: M 

33= 0:1444 =0 

4200 GOTO 510 

4300 RD=INT(RND(03*43 +1 

4310 IF RD=1 AND 01=35 THEN 4300 

4320 IF RD=2 AND D2=35 THEN 4300 

4330 IF RD=3 AND 03=35 THEN 4300 

4340 IF RD=4 AND 04=35 THEN 4308 

4350 GOTO 4120 

5000 GOSUB 3000:GOSUB 90O0:GOSUB 6008: 
TIM=TIM+1:GOT0 395 

6080 COLOR 32:C1=8:C2=0:IF LI<>-3 THEN 


GOTO 6005 

6081 IF LI=-3 THEN GOSUB 681 8:POKE 756 
,224:P0SITI0N 0,5:? tt6;" fcMi]l:i=a ,, ;P 
GOLD 

6002 POSITION 4,10:? tt6;"push trigger" 
:IF LI=-3 THEN TIM=0 

6003 SETCOLOR 1,12,10:IF STRIG(O3=0 TH 


EN 6005 

6O04 FOR ZZ=1 TO 50:NEXT ZZ:SETCOLOR 1 
,0,0:FOR ZZ=1 TO SO:NEXT ZZ:GOTO 6003 
6805 RESTORE 1040:IF LI=-3 THEN PGOLD= 
0 

6007 COLOR 32 : GOSUB 6010-.POKE 756,SET: 
RETURN 

6010 FOR C1=0 TO 23:PLOT 0,C1:ORAMTO 1 
9,Cl:NEXT Cl:RETURN 

7060 DATA 0,0,19,8,19,0,19,23,19,23,0, 
23,0,23,0,0,3,3,5,3,5,2,5,2,9,1,11,1,1 

4.3.16.3.14.2.14.2 

7010 DATA 9,4,11.6.9,6.11,4.16,5,14,5, 

14,6,14,6,9,10,11,10,11,18,11,12,11,12 

,9,12,9,12,9,10,3,5,5,5,5,6,5,6 

7820 DATA 3,9,3,10,5,9,5,10,14,9,14,10 

,16,9,16,10,3,12,3,14,5,12,5,13,14,i2, 

14,13,16,12,16,13 

7830 DATA 10,15,18,17,9,16,11,16,3.17. 
5,17,14,17,16,17,3,19,5,19,14,19,16,19 
,8,20,9,20 

7040 DATA 11,20,12,28,8,22,9,22,11,22, 

12.22.2.22.2.23.17.22.17.23.12.21.12.2 
1,8,21,8,21,3,19,3,20 

7050 DATA 3,16,3,17,16,16,16,17,16,19, 
16,20,2,10,3,10,6,10,5,10,2,12,3,12,6, 
12,5,12,13,10,14,10 

7060 DATA 16,18,17,10,13,12,14,12,17,1 

2.17.12, -1,-1 

7070 DATA 4,2,15,2,4,6,15,6,10,4,10,6, 

9,5,11,5,4,9,15,9,2,11,4,11,6,11,13,11 

,15,11,17,11,4,13,15,13 

7080 DATA 9,15,11,15,9,17,11,17,4,16,1 

5,16,4,20,15,20,9,21,11,21,4,2,-1 

7890 DATA 10,21,10,13,18,12,10,11,10,2 

2.10.12, -28 

8000 DATA 121,6,96,6,91,6,81,1,0,8,121 
,8,96,8,91,8,81,1 

8810 DATA 0,8,121,8,96,8,91,8,81,2,96, 
2,121,2,96,2,108,1 

8020 DATA 0,8,96,8,96,8,188,8,121,2,12 

1.6.96.2.81.4.81.4.91.2 

803C DATA 0,8,91,8,96,8,91,8,81,2,96,2 
,108,4,108,4,121,1,-1 


9000 RESTORE 8000 

9010 READ PITCH 

9020 IF PITCH=-1 THEN 9130 

9048 READ DURATION:DURATION=INT(56/DUR 

ATIONJ 

9850 SOUND O,PITCH,10,8 

9060 IF PITCH=0 THEN 9080 

9870 SOUND 1,PITCH*1,10,8 

9880 FOR ZZ=1 TO DURATION:NEXT ZZ 

9890 SOUND 0,8,0,© 



PAGE 138 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


5188 SOUND 1,8,8,8 

5118 FOR ZZ-i. TO 5: NEXT ZZ 

5128 GOTO 5818 

5138 RETURN 

5158 RESTORE 5278 

5168 READ DURATION:IF DURATION=-l THEN 
RETURN 

5170 DURATI0N=INT(DURATI0N*18) 

5188 READ PITCH:IF PITCH=8 THEN 5280 

5150 PITCH=PITCH*3 

5200 SOUND 8,PITCH,18,8 

5210 SOUND 1,PITCH+1,10,8 

5220 FOR ZZ=1 TO DURATION:NEXT ZZ 

5238 SOUND 8,8,8,8 

5248 SOUND 1,8,8,0 

5250 FOR ZZ=1 TO 3:NEXT ZZ 

5260 GOTO 5160 

5270 DATA 2,47,2,68,1,81,3,68,2,47,2,6 
0,1,53,3,53,2,47,2,68,1,45,2,45,1,45 
5280 DATA 1,47,1,47,1,53,1,53,3,60,1,0 
,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47 
,1,53,1,53,2,53 

5250 DATA 1,47,1,40,2,40,1.5,47,.5,53, 
1,60,1,53,1,47,1,47,2,47,1,53,1,53,1,4 
7,1,53,3,68,1,0,-1 

5300 FOR ZZZ=1 TO 3:F0R ZZ=20 TO 0 STE 
P -l:SOUND 0,28,18,ZZ:NEXT ZZ: SOUND 0, 
8,0,0:NEXT ZZZ:RETURN 
10008 FOR Z-l TO 3 
18010 A=PEEK(708) 

10020 POKE 708,PEEK (7115 :POKE 711,PEEK 
(7105 ’.POKE 710,PEEK (7055 :POKE 705,A:NE 
XT ZlFOR B = 1 TO 18:NEXT B:RETURN 




CHECKSUM DATA 
(See pgs. 7-10) 


1 DATA 0,703,82,665,687,337,357,37,155 

,535,211,426,288,786,738,6051 

258 DATA 162,55,383,742,713,712,721,64 

2,282,323,121,875,275,455,657,7122 

430 DATA 704,833,656,281,728,445,337,5 

1,425,826,526,151,238,555,36,7560 

530 DATA 518,74,785,53,51,285,828,681, 

484,731,583,17,573,483,857,8283 

624 DATA 488,685,453,825,812,831,814,1 

82,518,511,517,518,746,524,525,11353 

778 DATA 167,170,113,518,228,224,228,2 

16,577,846,853,860,867,583,668,8382 

502 DATA 660,667,674,27,30,40,50,518,8 

10,887,811,815,574,570,746,8555 

1800 DATA 226,165,214,287,57,68,763,80 

,750,137,418,548,616,647,412,5428 

1055 DATA 418,873,132,516,450,600,855, 

724,251,115,657,327,451,783,335,7975 

2510 DATA 724,239,248,210,201,494,202, 

783,213,871,731,517,774,208,903,7318 

3000 DATA 810,677,667,668,668,195,662, 

788,842,933,0,5,10,15,719,7651 

4070 DATA 706,715,724,726,908,549,557, 

551,559,311,753,204,808,251,772,9094 

4188 DATA 625,95,887,819,607,611,615,6 

19,730,1,991,985,398,561,836,9388 

6805 DATA 105,951,595,618,605,393,695, 

974,457,283,942,188,257,974,783,8820 

8020 DATA 596,86,199,110,118,997,893,4 

00,342,698,223,218,588,743,801,7012 

9158 DATA 226,485,338,695,558,894,342, 

698,223,225,593,761,514,393,665,7610 

9380 DATA 852,309,60,626,1847 


For those interested, here are some of the 
techniques used in this program. First is "redefined 
character sets,” which when carefully laid out can 
simulate a high resolution graphics screen, but re¬ 


quiring much less memory. They are fairly easy to 
design. Each character can be one of four different 
colors. Step one is to design some characters. Here’s 
Smiley as an example: 



Make an 8 by 8 grid, mark the blocks to be filled 
in, then add up the corresponding numbers to de¬ 
termine its POKE value. 

Following is a program which defines a space and 
a Smiley character, and then prints out a picture of 
Smiley on the screen. 


10 GRAPHICS 2+16:REM START OUT WITH A 
GRAPHICS STATEMENT 

20 POKE 106,PEEK(1O6)-2:REM SET ASIDE 
2 PAGES OF MEMORY FOR THE CHARACTER 5E 
T 

30 CHBASE=PEEK(106J*256:REM THIS IS WH 
ERE THE CHARACTER SET MILL BE POKED IN 
TO MEMORY 

40 8ET=PEEK(106):REM THIS IS WHERE THE 
CHARACTERS MILL GO IN TERMS OF PAGES 
OF MEMORY 

SO READ VALUE:IF VALUE=~1 THEN 95:REM 
READ IN PART OF A CHARACTER 
60 POKE CHBASE + C,VAl.UE:REM PUT THE HUM 
BER IN MEMORY 
70 C=C+l:GOTO SO 
75 REM DATA FOR SPACE 
80 DATA 0,O,0,O,0,O,0,0 
85 REM DATA FOR SMILEY 
90 DATA 60,126,219,255,189,195,126,60, 
-1 

95 POKE 756,SET:REM TELL THE COMPUTER 
WHERE THE NEW CHARACTER SET IS LOCATED 
100 COLOR l:PLOT 5,5:REM PUTS SMILEY 0 
N SCREEN AT 5,5 

1I0 GOTO 110:REM ENDLESS LOOP FOR DISP 
LAY PURPOSES 


To determine the number for the COLOR state¬ 
ment in line 100: first, Smiley is to be green. Color 
register number 1 normally contains green, so it is 
used. Smiley has been defined in the program above 
as the second character in the redefined set. (The 
space was the first.) 

With these pieces of information I looked up the 
number in a chart, like the following one: 

COLOR REGISTER 0 = 32, 33 through 95 

COLOR REGISTER 1 =0, 1 through 124, 

(125*), 126, 127 

COLOR REGISTER 2 = 160, 161 through 223 

COLOR REGISTER 3 = 128, 129 through 

154, (155*), 156 
through 255 

*155 selects the same thing as 32. 125 has no 
effect. 

Smiley’s color is set by color register 1, so look in 
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the second row. Since he is the second character, use 
the 2nd number in the 2nd row, which is 1. As an¬ 
other example, if Smiley were to be controlled by 
color register 2, the correct number would be 161. 
Try 161 in the example program above and see what 
happens. 

Before you get too carried away, remember that 
the example program will not allow text to be dis¬ 
played on the screen. To switch back to text only, 
type POKE 756, 224. 

Another section of the Halls of the Leprechaun 
King which is interesting is its color rotation sub¬ 
routine (10000-10020). Adding this to a program’s 
title makes it very colorful. Here is how it works. 
Memory locations 708-711 contain the numbers 
which determine the colors which will be displayed 
from each color register. The subroutine rotates the 
colors from one register to another so that every¬ 
thing on the screen flashes through each color. Try it 
in one of your programs. □ 


Circle Radius Demo 


10 XCENTER=310/2:YCENTER=192/2 
100 GRAPHICS 8 
110 COLOR 1 

120 ? "ENTER RADIUS:"]:INPUT RADIUS 

130 LET RADIU5=RADIUS+3-l 

140 LET H=0 

150 LET Y=RADIUS 

160 LET DIAHETER=3-2*RADIUS 

170 IE X< = Y THEN GOSUB 1000:IF DIANETE 

R<0 THEN DIAMETER=DIANETER+4*X+6:X=X+1 

:G0T0 170 

180 IF X>Y THEN END 

190 DIAMETER=DIANETER+4*(X~Y)+10 

200 Y-Y-l 

210 X-X + l:GOTO 170 
1000 REN 

1010 PLOT XCENTER+X,YCENTER+Y 
1020 PLOT XCENTER+Y,YCENTER+X 
1030 PLOT XCENTER+Y,YCENTERX 
1040 PLOT XCENTER+X,YCENTER-Y 
1050 PLOT XCENTER-X,YCENTER-Y 
1060 PLOT XCENTER-Y,YCENTER-X 
1070 PLOT XCENTER-Y,YCENTER+X 
1080 PLOT XCENTER-X,YCENTER+Y 
1090 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 50,908,474,753,651,436,523,779 

,371,580,245,356,504,275,95,7000 

1020 DATA 95,100,102,105,105,102,104,7 

on « rn j ' 7 
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STUNTMAN 


16K Cassette 24K Disk 


by Steven Pogatch 


Your stunt man has been hired to climb to the top 
of every building he can find. This is not as easy as it 
may seem, though, because the tenants of the build¬ 
ings will do anything to get you off the building. 
There are six (6) levels to each building, each pro¬ 
gressing in difficulty. 

In the first section, windows constantly close to 
keep you from getting past them. Next, men stick 
their heads out of the windows, trying to get in your 
way. After that, flower pots fall from the window 
ledges, closing all windows in their way. After pass¬ 
ing this section, a crazy bird drops girders on you. Be 
careful here — they can be deadly if they hit you on 
the head. Once you get past the bird, you have to 
avoid King Kong, waiting for you on his part of the 
building. He is very angry and is throwing down any¬ 
thing he can find on top of you. Last (but not easiest), 
girders (3 lanes wide) come crashing down from the 
building. Look out! 

If you are lucky enough to get through all of this, 
there will be a brief intermission telling you to go on 
to the next building. 

On the top left corner of the screen are three 
numbers. The first one represents the section, the 
second represents the building number, and the third 
represents the number of men you have left. If you 
manage to score 10,000, 30,000 or 50,000 points, 
you will be awarded a free stunt man. The score is 
displayed in the lower left hand corner. You can 
move left, right and up with the joystick. For every 
movement you make, you are rewarded 50 points. 
You start out with 6 stunt men. Good luck climbing 
— you’ll need it. □ 


The program. 

Lines 1-30 — Initialization 

Lines 40-1000 — Movement of a player, 
activate obstacle(s) 

Lines 1000-2000 — Death (fall) of stunt 
man 

Lines 2000-3000 — Section 1 (windows & 
men) 


Lines 3000-4000 — Section 2 (flower 
pots) 

Lines 4000-5000 — Section 3 (bird) 
Lines 5000-6000 — Section 4 (King Kong) 
Lines 6000-10000 — Section 5 (girders) 
Lines 10000-11000 — Bonus stunt man 
Lines 11000-32000 — Go on to next build¬ 
ing (intermission) 

Lines 32000-325000 — Redefines charac¬ 
ter set 

Lines 32500-32700 — Title 
Lines 32700-32750 — End of game 


1 G05UB 32000 : CLR 

2 G05U8 32500:SH=6:B=1 

5 GRAPHICS l:PQKE 756,PEEKC186J+1 
18 SETC0L0R 2,8,0:POKE 718,94:P0KE 711 
,45:FOR A=0 TO 19:P0SITI0N 5,A:? #6;"e 
eeeeeeeeeee":NEXT A 

20 FOR A-5 TO 16: F = RHD101*19:IF F>1 TH 
EH POSITION A,F:? *16 ; “ f " : NEXT A 
30 X=18:Y=18:0X=X:0Y=Y 

40 POSITION 0X,0Y:? It6;"e":POSITION OX 
, 0Y+1:? tteH'e" 

41 LOCATE X,Y,Z:IF Z = 102 OR Z = 225 OR Z 
=66 THEN G0SUB 1000 

42 POSITION X, Y : ? 1*6; "B" : POSITION X,Y+ 
l:? 1*6; "ffl" 

43 IF SC=100O0 OR SC=5000O OR SC=10000 
0 THEN SH=SH+1:GOSUB 10000 

44 IF Y=0 THEN L=L+1:G0T0 5 

45 0X=X:0Y=Y 

46 SOUND 8,Y+20,3,15:FOR A=1 TO 15:HEX 
T A:SOUND 0,6,0,O 

47 G=RND(0)*4:IF G>3.7 THEN FOR A=5 TO 
16 : POSITION A, RND (01 *18 : ? t*6; "f" : NEXT 
A 

48 ON L GOSUB 2000,3008,4000,5000,6000 
:IF L=6 THEN L=0:B=B+1:GOSUB 11000 

49 POSITION 8,19:? 1*6; SC: POSITION 1,1: 
? 1*6; L: POSITION 1,2:? 1*6; B: POSITION 1, 
3:? t*6;SH 

58 IF 5TICK C0J =14 AND Y>0 THEN Y = Y"1:S 
C=5C+58:GOTO 40 

60 IF STICK (0)=11 AND X>5 THEN X=X~1:S 
C=5C+50:GOTO 40 

70 IF STICK C8J =7 AND X<16 THEN X=X + 1:S 
C=SC+50:GOTO 40 
100 GOTO 42 

1080 SOUND 0,40,6,10:FOR A=1 TO 25:HEX 
T A:SOUND 0,0,0,0:SOUND 1,8,8,0 
010 FOR A = Y TO 18: POSITION X,A:? 1*6;" 
": POSITION X, A+i: ? **6; "m" : POSITION X, 
A-l:? 1*6;"e":POSITION X,A:? tt6;"e" 

1028 SOUND 0, A+20,1O,10:NEXT A.'SOUND 0 
,0,8,0:5H=SH-1 

1030 IF SH<8 OR SH=0 THEN GOTO 32780 
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1040 GOTO 10 
2000 REM DOCTORS 

2010 C=C+1:IF C=ll THEN C=1:DC=RND(01* 


10 

2020 IF DC>6 THEN POSITION C+5,RND(01* 
18:? 86;"0" 

2040 RETURN 
3O00 REM POTS 

3010 D = D + 1:IF D = ll THEN D = i:DC=RND (01* 
10 

3020 IF DC>7 THEN FOR 0=2 TO Y:POSITIO 
N D+5,0:? 116 ;"B": POSITION D+5,0-1:? 116 
;"f":NEXT 0:POSITION D+5,Y:? 86;"e" 
3030 RETURN 
4000 REM BIRD 

4010 BD=BD+1:IF BD=11 THEN BD = 1 
4020 POSITION BD+5,2:? 86;"C":POSITION 
BD+6,2:? 116;"D":POSITION BD+4,2:? 86; 
"e":BDD=RND (01*10 

4022 IF BD = 1 THEN POSITION 15,2:? 116;" 
ee" 

4025 IF BDD>3 THEN 4030 
4027 RETURN 

4030 FOR BDD0=4 TO IMPOSITION BD+5, BD 
DO:? 86;"eM":POSITION BD+5,BDDO-1:? #6 


; “ee" 

4040 LOCOTE X,Y,Z:IF Z = 109 THEN GOSUB 
1006 

4050 SOUND 0,BDDO+106,1O,8:NEXT BDDO:S 
OUND O,0,0,0 
4O60 RETURN 
5000 REM KONG 

5010 KN=KN+1:IF KN=12 THEN KL=KL+1:KN= 
1 

5015 IF KN = 1 THEN KN=KN+1:IF KL = 12 THE 
N KL=1 

5020 POSITION KN + 5, KL + 1: ? 86;"R":P0SIT 
ION KN+5, KL+2 : ? 116; "S" : POSITION KN-1+5 

K l JL « » O ++C - ! 1 n! 1 3 nflCTTTAH 1/U_ 4 JLKT IS I Afl > O 

l * a . : mi r c • ru ja ■ xun «\n x * o , r\i_ « x . : 

86;"e" 

5025 POSITION 16,KL+1:? 86;"e":POSITIO 
N 16,KL+2:? 116; "e" 

5026 REM FOR 0 = 1 TO 12P0SITI0N 15,0? 11 
6;"e"NEXT 0 

5027 LOCOTE X,Y,Z:IF Z=235 THEN GOTO 1 
006 

5030 Q00=RND(01*10+1 
5040 IF QQQ<6 THEN RETURN 
5045 IF 0QQ>6 OND Q0Q<7 THEN 5O50 
5046 IF QQQ> 7 OND 0QQ<8 THEN 5200 
5047 IF QQQ>8 OND G0Q<9 THEN 5300 
5048 IF 0GG>9 OND QQQ<10 THEN 5400 
5050 FOR 0=KL+4 TO 17 

5O60 POSITION KN + 5,0 : ? 116; "B" : POSITION 
KN+5,0-1:? 116;"e":LOCOTE X,Y,ZZ:IF ZZ 


=66 THEN 1000 

5070 SOUND 0,0+200,10,8:NEXT 0:S0UND 0 
,0,0,0:POSITION KN+5,17:? 86;"e" 

5080 RETURN 

5200 FOR 0=KL+4 TO 17 

5210 POSITION KN + 5,0 : ? 116 ; "I" : POSITION 
KN+5,0-1: ? 116;"e":LOCATE X, Y, ZZ: IF ZZ 
=73 THEN 1000 

5220 SOUND 0,0+200,10,8:NEXT 0:50UND 0 
,0,0,0:POSITION KN+5,17:? 86;"e" 

5230 RETURN 

5300 FOR 0=KL+4 TO 17 

5310 POSITION KN + 5,0 : ? 116; "M" : POSITION 
KN + 5, o-l:? 116 ;"e": LOCOTE X,Y,ZZ:IF ZZ 
=77 THEN 1000 

5320 SOUND 0,0 + 200,lO,S'.NEXT 0 : SOUND O 
,0,0,8:PO5ITION KN+5,17:? 86;"e" 

5330 RETURN 

5400 FOR 0=KL+4 TO 17 

5410 POSITION KN+5,0:? 86;"O":POSITION 
KN+5,O-l:? 86;"e":L0C0TE X,Y,ZZ:IF ZZ 


=65 THEN 1000 

5420 SOUND 0,0+200.10,8:NEXT 0:SOUND 0 
,0,O,0:POSITION KN+5,17:? 86;"e" 

5430 RETURN 
5560 RETURN 

6000 REM GIRDERS ARE MEAN 

60O5 GG=RND(01*10+1:IF PL=1 THEN PL = 19 

6018 IF GG<4 THEN RETURN 

6020 TTT=RND(01*12+1 

6030 IF TTT<5 THEN RETURN 


6040 FOR 0=2 TO IMPOSITION TTT, 0: ? 116 
;"MMM":POSITION TTT,0-1:? 86;"eee":SOU 
ND 0,0,TTT,12:SOUND 1,TTT,0,12 
6845 LOCOTE X,Y,ZZ:IF ZZ=77 THEN GOTO 
1000 

6047 NEXT A 

6050 SOUND 0,0,0,O:SOUND 1,0,0,0 
6060 POSITION TTT,IS:? 86;"eee" 

607O RETURN 

18000 RESTORE 10500 

10018 READ SO:IF S0=~1 THEN SOUND 0,8, 
0 0!RETURN 

10020 SOUND 0,50,10,14:FOR 0=1 TO 2:NE 
XT OIGOTO 10010 

105O0 DATA 243,4,162,4,121,6,96,2,102, 
4,243,4,162,4,121,6,81,2,60,8,-1 
11000 GRAPHICS 8:POKE 752,1:POSITION 1 
,1:? " GO ON TO BUILDING ";B:FOR 

0=1 TO 3:FOR Q=1 TO 50:SOUND 0,0,10,8 
11005 NEXT Q : NEXT O'.SOUND 0,8,0,0 
11010 FOR 0=8 TO SC STEP 150:5OUND 0,1 
9,92,8:FOR Q=1 TO 20:NEXT Q: SOUND 0,0, 
0,0:POSITION 18,5:? "SCORE:";0:NEXT 0: 


GOTO 5 

31999 END 

32000 POKE 106,PEEK C186)-5:GRAPHICS 0: 
5T0RT=(PEEK(1061 +11*256:POKE 756,START 
7256:POKE 752*1 

32010 DIM XFR$(381:RESTORE 32015:FOR X 
= 1 TO 38:READ N:XFR$(XI=CHR$(N1:NEXT X 

32015 DATA 184,169,0,133,203,133,205,1 
69,224,133,286,165,106,24,105,1,133,20 
4,160,0,177,205,145,203,200 

32016 DOTO 208,249,230,284,238,206,165 
,286,201,228,208,237,96 

32028 Z=USR(ADR(XFR$11:RESTORE 32100 
32830 READ X:IF X=-l THEN RESTORE :RET 
URN 

32048 FOR Y=8 TO 7:READ Z:POKE X+Y+STO 
RT,Z:NEXT Y:GOTO 32030 

32100 DOTO 264,60,126,219,255,231,189, 

195.126 

32101 DOTO 272,106,50,36,255,126,126,1 

26.126 

32102 DATA 280,30,207,255,255,127,15,3 
0,60 

32103 DOTO 288,30,26,255,254,224,8,0,0 

32104 DOTO 296,255,129,129,129,129,129 
129 255 

32105 DOTO 304,0,126,126,126,126,126,1 
26,0 

32106 DOTO 312,195,153,153,231,60,68,6 
0,0 


32107 DOTO 320,60,60,36,36,36,231,231, 
0 

32108 DOTO 328,60,36,60,8,24,16,24,8 

32109 DATA 336,60,90,126,129,165,129,1 
26,60 

32110 DOTO 344,60,102,165,165,165,219, 
60,231 

32111 DOTO 352,126,182,162,126,8,8,40, 
56 

32112 DOTO 360,0,0,255,182,255,0,8,0 

32113 DATA -1 
32500 GRAPHICS 17 

3 2518 FOR 0=1 TO 22:P 0SITI0H 8,0:? 86; 
■ ' riCTOiraiQiiJiUOiraiajre ■:sound 0 , 0 + 25,10 
,12:NEXT 0:POSITION 4,16 

32511 SOUND 0,0,0,0 

32512 ? 86;"..stunt.nan.." 

32528 POSITION 2,13:? 86;"GE] STEUEN PO 
GOTCH":POSITION 5,14:? 86;"PRES5 START 


32525 POSITION 7,18:? 86;"CcJ1982" 
32530 IF PEEK (532791=6 THEN RETURN 
32540 GOTO 32530 

32708 GRA PHICS 18:P05ITI0N 1,2:? 86 ;"0 
[XlSEISIU":POSITION 1,5:? 86 ;"SCORE = "; 
SC 

32710 POSITION 1,6:? 86;"PRE5S START " 
32715 IF PEEK(532791<>6 THEN 32715 
32755 CLR :GOTO 2 
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CHECKSUM DATA 
(See pgs. 7-10) 


1 DATA 405,17,266,468,407,384,263,358, 
118,164,663,867,893,543,528,6451 
49 DATA 998,821,816,783,492,194,510,48 
5,459,615,525,997,243,785,81,8804 
3010 DATA 6,681,786,5,59,187,45,657,80 
1,289,454,979,791,45,102,5887 
5015 DATA 475,635,855,276,239,438,357, 
196,192,201,498,693,954,593,795,7397 
5200 DATA 634,964,594,796,697,983,597, 
799,700,957,600,802,802,620,636,11241 
6010 DATA 517,459,374,919,585,488,737, 
366,796,650,232,498,329,393,275,7678 
11010 DATA 684,592,284,910,654,591,768 
,663,960,879,634,535,45,170,526,8895 
32106 DATA 354,269,972,836,628,478,887 
,833,312,711,575,597,203,329,343,8327 
32540 DATA 224,776,906,386,215,2427 
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DUNGEONS & DRAGONS 
CHARACTER GENERATOR 


24K Cassette 32K Disk 
by Bob Curtin 


When I first bought my ATARI, one of the things I 
put high on my list of priorities was to try one of the 
computer adventure games on the market. I wasn’t 
impressed with the game, but I was impressed with 
the ease of play. Pressing a few buttons took care of 
movement, combat, encumbrance, game time and all 
the rest, and it dawned on me that my computer 
could be a big help to me in my ongoing DUN- 
GEONS & DRAGONS campaign. I set to work 
writing a series of utility programs for it. This, the 
first, generates both player and non-player charac¬ 
ters in an average of about four minutes. Normally, it 
takes anywhere from twenty to forty minutes to 
generate a character "by hand,” and then there’s a 
strong possibility of missing a few modifiers along 
the way. The computer always remembers. 

Though the program was written to take the work 
out of generating characters, the Dungeon Master 
and players are still left with choices to make. As in 
D&.D, the player still has choice of name, gender, 
race, class, and character level. Those categories 
greatly affect the final character statistics, and it 
would be an injustice to randomly choose them for 
the player. By the same token, there are certain mini¬ 
mum ability scores, or racial requirements, which 
must be met to assume the role of a particular race or 
class. The user doesn’t have to know or worry about 
it; the computer will figure it all out and tell the 
player if he or she doesn’t measure up. The player 
may continue to choose alternatives until one of his 
choices meets all requirements. The program will 
then continue on. 

The system used is based on the standard AD¬ 
VANCED DUNGEONS & DRAGONS game. 
There is an omission, however — by choice, not 
error. I didn’t incorporate the maximum level re¬ 
strictions imposed on certain races, such as an Elf 
being able to rise no higher than 7th level as a fighter. 
If a Dungeon Master wants to adhere to those limits, 


it’s a simple matter to just look it up; while it’s not so 
simple to get the computer to do what it’s told not to. 
For those of you who want to ignore the limits, the 
computer doesn’t know any better. Indulge. 

I fudged a couple of other values, too. For in¬ 
stance, line 195 contains the random number gen¬ 
erator for the characters’ basic abilities. Notice that 
variables A and C have a +2 for the add-on number. 
I did this to give the players a break. All you hard¬ 
line Dungeon Masters out there gnashing your teeth 
can switch back to +1 if you want. (Essentially, 
they’re now rolling 3D6+2.) 

The program. 

As I said, there are five inputs. They are, in order: 
name, gender, race, class and character level. Here is 
an example of each. 

Name — after the title, the computer will ask for a 
character name. This is the only "open” input, and 
— although you have to work at it — it can be 
screwed up. For example, entering a couple of 
control characters through the escape key will cause 
some grief later on down the line. Other than that, 
anything but an input of YES, NO, Y or N will be 
taken as the character name. If you don’t want a 
name, just hit the return key. Entering NO or N will 
fetch a list of names from memory as suggestions to 
the player. 

GENDER — The computer will only accept M or 
F. Lower case letters will not work. 

RACE and CLASS — Only the exact initials 
listed in parentheses on the respective menus will be 
accepted. 

CHARACTER LEVEL — Any level between 1 
and 18 (inclusive) will be accepted. If a value below 1 
is entered, the value will be upped to 1. If a value over 
18 is entered, a short message will be displayed and 
the program will loop back for another input. Any 
illegal entry, such as a letter instead of a number, will 
also cause the loop back for re-entry. 


DUNGEONS & DRAGONS ® 1982 TSR Hobbies, Inc. All Rights Reserved. 
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As the character builds, the computer does the 
appropriate calculations, comparisons and modifi¬ 
cations between inputs, and then displays the results. 
After the information has been copied from the 
screen, the player may continue the program by 
pressing any key. 

Program outline. 

Lines 5-26 — Initialization 
Lines 50-75 — Character Race Modifier 
Routine 

Lines 80-82 — Custom Display List 
Lines 86-88 — Title (so, my vanity’s show¬ 
ing). This can be deleted by eliminating lines 80 
through 96 and changing the last statement in 
line 20 to GOTO 100. 

Lines 100-111 — Thief, Magic-user, and 
Monk Data 

Lines 159-179 — Name Input 
Lines 180-187 — Gender Input 
Lines 190-192 — Race Menu 
Line 195 — Basic Ability Scores 
Lines 200-225 — Race Input 
Lines 226-229 — Ability Score Display 
Lines 235-243 — Class Menu and Class 
Input 

Lines 245-254 — Class Trigger and Gold 
Piece Generator 

Lines 263-269 — Exceptional Strength 
Routine 

Lines 276-332 — Hit, Damage, Armor 
Class, and Dexterity Modifiers 

Lines 335-341 — Modifier Display 
Lines 345-374 — Height and Weight Rou¬ 
tine (modified by race and gender) 

Lines 375-438 — Hit Point Generation 
Routine (modified by race and ability) 

Lines 460-475 — Thieves Ability 
Lines 500-530 — Magic-user Abilities 
Lines 550-599 — Monk Abilities 
Lines 2000-2020 — Name List 
Lines 2550-2730 — Race Limitations 
Lines 5000-5975 —- Class Limitations 
Lines 6132-6200 — Thief Abilities Modi¬ 
fiers (by race and ability scores) 

Lines 7000-7055 — Psionics Routine 
Lines 8000-8020 — Input Error Routine 

A few suggestions for the DM. 

Never lose sight of the fact that the only reason a 
player will participate in one of your D&D sessions 
is to have FUN! Nothing will dampen the enthu¬ 
siasm of a new player faster than being forced to 
assume the role of a character too weak to take any 
kind of initiative, do any exploring, or even stand 
fast with the rest of the party. Force your players into 
a position of constant impotence and you’ll soon 
find your dungeon devoid of adventurers. 

Although I’m certainly not in favor of the give¬ 


away dungeon, killer dungeons are, if not worse, at 
least as bad. Surviving and advancing up the ladder 
of experience — developing a character is what D&D 
is all about. To have a developed character snuffed 
out by the undetectable, unseeable or unknowable is 
bound to cause you to gain a reputation as a "cheap 
shot” dungeon master. Having a character killed 
because of one’s own recklessness or bad luck or a 
bad choice between alternatives can be lived with. But 
the skewering of some hapless player for no rhyme 
or reason is unforgivable. 

Give your players a break. Pick a number — I use 
five — and let each player run off that many char¬ 
acters. The player can then choose one of them to 
start the game with, and should that character come 
to an untimely end, there are four more from which 
to choose. That way, no more valuable playing time 
is taken up generating characters. 

Normally, novice players start at level one. How¬ 
ever, after a player has campaigned for some time, it’s 
usually the practice to let him or her start higher than 
that. If they have a character killed off, you could, for 
instance, have them start a couple of levels lower 
than the character who was killed. Another way is to 
roll a six or eight-sided die. 

Above all, be fair. Remember that you, and con¬ 
sequently all of the creatures you control, have per¬ 
fect intelligence. Your players do not; they only 
know what you tell them. It behooves you to give 
that little extra. If a player can’t see something, don’t 
wait for him to ask; tell him. 

Good luck. Good dungeoning. □ 


5 TRAP 8008 

10 DIM N$(483,Z$C303,R$C103,P$(103, E$ C 
28J,DH$C283,GN$C283„HE$C22I,ST$f9J,MIS 
(7),INS(20),DX$(103,CN$(203,CH$C103 

12 DIM HA$(223,H0$t223,B$(183,Y$C1S3,T 
CIS,81, MU (20, S3,F(63,JC15J,G$C103,X(10 
J,M(333,MKC17,43,M$(343,D$(103 

15 Z$=" DOES MOT HAVE ENOUGH": 5T$="STR 
ENGTH":IN$="INTELLIGENCE":HI$="WI5D0M" 
:DHS^'OEXTERITY":CNS^'CONSTITUTION" 

18 CHS= ,, CHARISMA ,, :BS=" TO BE A":ES="EL 
VE5 CANNOT BE ":DH$="DMARVES CANNOT BE 
”:GN$=”GN0MES CANNOT BE " 

28 HE$="HALF-ELUE5 CANNOT BE ":HA$="HA 
LFLINGS CANNOT BE ":HO$-"HALF-0RCS CAN 
NOT BE ":Y$=" NO.ATTACKS" 

25 Kl=l:K2=K1+K1:K3=K1+K2:K4=K1+K3:K5= 
K1+K4:K6=K3+K3:K7=K4+K3:K8=K2+K6:KS=K1 
+K8:K10=KS+K1:K11=25:K12=50:K13=100 

26 K14=75;K15=125:K16—150!K17-208:K241 
=241:K0-K1-K1:GOTO 88 

58 FOR E=K1 TO K6:J (E3 =F(E3 :NEXT E:0=8 

; IF R$="H" THEN Y=K1:0=K5;RETURN 

54 IF R$="E" THEN Y=K2:0=K5:J<K4J=JCK4 

)+K1:J (K53 =J CK53-K1:RETURN 

56 IF R$="D" THEN Y=K3:0=K5:JtK5J=J(K5 

J +K1:J(K63=J (K63-K1:RETURN 

58 IF R$="G" THEN Y=K4:0=K5!RETURN 

60 IF R$="HE" THEN Y=K5;0=K5:GOTO 75 

62 IF R$="HA" THEN Y=K6:0=K5:JIK1J=J(K 

1J-K1:JCK4J=JCK4)+Ki:RETURN 

64 IF R$="H0" THEN Y=K7:0=K5;J(K1J=JCK 

13 +K11J CK53 = J IK53 +K1: J CK63 = J CK63 ~K2 : RE 
TURN 
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75 RETURN 

80 POKE 712,128:? ”6" :DL=P£EK C560)+256 
*PEEK (561) :POKE 752,K1:P0KE 553,K0 

81 Z1=PEEKCDL+K4):Z2=PEEKCDL+K5):POKE 
DL+K3,71:P0KE DL+K4,Z1:POKE DL+K5,Z2:P 
OKE DL+K6,K7:POKE DL+K7,K6 

82 POKE DL + K8,K6:POKE DL+K9,K6:POKE DL 
+ K10,K6:POKE DL+K11+K2,65:P0KE DL+K11+ 
K3,PEEK(5603:POKE DL+29,PEEKC561) 

88 POKE 82,0:POKE 559,34:P0KE 710,128: 
? "« DUNGEONS * DRAGONS": ? " RANDOM C 
HARACTER":? " GENERATION PROGRAM" 

32 ? " BY BOB CURTIN" 

33 ? :? :? " THIS PROGRAM WAS WRITTE 

N TO TAKE":? " SOME OF THE BURDEN 

OFF OF THE" 

34 ? " USUALLY HARRIED DUNGEON MAST 
ER . " 

35? :? " PLEASE BE SURE TO PRESS E 

lainra:i ■*:? after each inpu 

T."; ? 

36 ? :? :? " GOOD LUCK! GOOD DUNG 

EONING!":FOR E=K1 TO K10A3*5:NEXT E 

100 FOR I = K1 TO K8: FOR X = K1 TO K10 + K8: 
READ N:TCX,I)=N:NEXT X:NEXT I 

101 FOR I=K1 TO K3:FOR X=K3 TO K10+K3: 
READ N:MUfX,IJ=N:NEXT X:NEXT I 

102 FOR I=K1 TO K4.F0R X=K1 TO K18+K7: 
READ N:MK(X,II=N:MEXT X:NEXT I 

103 DATA 30,35,40,45,50,55,60,65,70,80 
,30,100,105,110,115,125,125,125,25,23, 
33,37,42,47,52,57,62,67,72,77,82,87 

104 DATA 32,37,33,33,20,25,30,35,40,45 
,50,55,60,65,70,75,80,85,30,35,33,33,1 
5,21,27,33,40,47,55,62,70,78,86,34,33 

105 DATA 33,33,33,33,33,10,15,28,25,31 
,37,43,43,56,63,70,77,85,33,33,33,33,3 
3,10,10,15,15,20,20,25,25,30,30,35,35 

106 DATA 40,48,50,50,55,55,85,86,87,88 
,30,32,34,36,38,33,33.1,33.2,33.3,33.4 
,33.5,33.6,33.7,33.8,0,0,0,20,25,30 

107 DATA 35,40,45,50,55,60,65,70,75,88 
,80,80,35,45,45,45,55,55,65,65,75,85,3 
5,4,5,5,5,6,6,7,7,8,3,10,6,7, 7,7,3,3 

108 DATA 11,11,14,18,33 

103 DATA 10,3,8,7,7,6,5,4,3,3,2,1,0,-1 
,-1,-2,-3,150,160,178,180,130,200,210, 
220,230,240,250,260,270,280,230,300 

110 DATA 320,1,1,1,54,54,32,32,32,2,2, 
52,52,52,3,3,4,4,13,14,16,16,27,28,33, 
212,312,313,413,416,517,520,624 

111 DATA 530,832 

153 POKE 82,2:GRAPHICS 1:P0KE 752,1:P0 
KE 712,128:POKE 710,128 

160 RESTORE :? »6:? 116:? 116;" DUNGEONS 
& DRAGONS":? 116; "CHARACTER GENERATION 

If 

170 ? "HAVE YOU THOUGHT OF A NAME":? " 
FOR YOUR CHARACTER";:INPUT NS 
175 IF NS="YE5" OR NS=“Y" THEN ? "6WEL 
L, WHAT IS IT"; :INPUT NS 
173 IF NS-"NO" OR NS-"N" THEN GRAPHICS 
0:POKE 710,6:POKE 703,0:POKE 752,1:G0 
SUB 200O 

180 ? "6WHAT GENDER IS ";N$:" CM/F)";: 
INPUT G$:0=8:IF GS="M" OR GS="F" THEN 
0-K5 

187 IF 0<>K5 THEN ? "6M/F ONLY, PLEASE 
!": FOR E = K1 TO 150O:NEXT E:GGTO 180 
130 ? »6:? 116:? «6;“ HUMAN CH)" 

:? 86;" ELF CEJ":? 86;" DWA 

RF CD)" 

132 ? 86,” GNOME CG)":? 86;" 

HALFLING CHA)":? 116;" HALF-ELF CHE 
)".-? 116;" HALF-ORC CHO)" 

135 FOR E = K1 TO K6:A=INT CK6*RND CK1)+K2 
) :B=INT CK6*RND CK1)+1) :C = INT CK6*RNDCK1) 
+K2):D=A+B+C:FCE)=D:NEXT E:GOTO 285 
280 POP : ? 

285 ? "WHAT RACE";:INPUT RS:GOSUB K12 
218 IF 0<>K5 THEN ? "^INITIALS ONLY, P 
LEASE!":GOTO 285 
215 GOSUB 2550 

228 FOR E=K1 TO K6:IF JCE)>K9+K9 THEN 
J CE)-K3+K9 

224 IF JCEXK3 THEN JCE)=K3 


225 F CE) = JCE):NEXT E 

226 GRAPHICS K1:P0KE 712,58:P0KE 710,5 
0:? 116:? 116:? 116 

227 ? U6:? 116:? 86:? 116;" STRENGTH 
";FCK1):? »6J" INTELLIGENCE ";FCK 

2):? 116;" WISDOM "; F CK33 

228 ? 86;” DEXTERITY ";FCK4):? 116 

;" CONSTITUTION ” ; F CK5) : ? 116; " CHAR 
ISMA ";FCK6) :? 116:? 116 

223 ? 86;" BASIC ABILITIES":POKE 752, 
1;? " PRESS ANY KEY TO CONTINUE" 

230 OPEN ltl,4,0,"K:":GET tll,E:CLOSE 111 
:IF E>0 THEN 235 

235 GRAPHICS i:POKE 703,36:POKE 718,16 
8:POKE 712,98:POKE 752,1 

236 ? 116:? 116:? 116 


237 ? 116;" 
GQ9333H 

W-TF:? He; 

238 ? 116;" 

1 : 0 m 

HuO":? 116 ;" 

239 ? 86;' " 


ILLUSIONIST 


IfighterBW 

gj (P 

il": ? 116 

bI 1 

rLERICM 

gRL 

\imm 

*TTj 

iSSASSINl 

IIC-USER 

H”:? 06 
THE 



':? 1 16 


86 ;” 


•:? 116;" 


CH 


THEN 0=K5:Z=K4:GP=INTCK1 
THEN 0=K5:Z=K5:GP=INTCK1 


THEN 0=K5:Z=K7:GP=INTCK1 
1 THEN 0=K5:Z=K8:GP=INTC6 
THEN 0-K5:Z=K9:GP-INT C68 


THE ABOVE LIST" 

240 GOTO 243 

241 POP ? 

243 Z=K0:O=K0:ES^KO:? "WHAT CLASS";:IN 
PUT PS 

245 IF P$="F" THEN 0=K5:Z=K1:GP=INTC15 
0*RNDCl)+50) 

246 IF P$="R" THEN 0=K5:Z=K2:GP=INTCK1 
6*RND CK1)+58) 

247 IF P$="P" THEN 0=K5:Z=K3:GP=INTCK1 
6#RND Cl)+50) 

248 IF P$="C" 

6*RNDCl)+30) 

243 IF PS="D" 

6*RNDCl)+30) 

258 IF P$ = "T*‘ THEN 0=K5 : Z = K6 : GP = INT CK1 
3*RNDCl)+20) 

251 IF P3="A" 

3*RND Cl)+20) 

252 IF P$="MU‘ 

0*RNDCl)+20) 

253 IF PS="I" 

WRND Cl)+20) 

254 IF PS="M" THEN 0=K5:Z=K10:GP^INTCl 
5*RND Cl)+5) 

255 IF 0<>K5 THEN ? "CORRECT INITIALS 
ONLY, PLEASE!":? :GOTO 243 

262 GOSUB 5000 

263 IF PS="F" OR PS="R" OR P$="P" THEN 
IF FCK1)=K10+K8 THEN 265 

264 GOTO 276 

265 GRAPHICS 2 + 16:P0KE 711,4:? HK6:? It 
K6:? 11K6:? UK6," ";NS;" HAS ":? HK6;" 
EXCEPTIONAL":? 11K6;" STRENGTH" 

269 ? H6:ES=INTCK13*RNDCK1)+K1):? »6;" 

E.S.RATING 18/";ES:FOR E=K1 TO 2000: 
NEXT E 

276 MH=8:MD=0:HA=0:MR=0:K325-325:K335= 
335 

310 IF ES=K13 THEN MH=K3:MD=K6:GOTO K3 
25 

311 IF ES>-K13-K9 THEN MH=K2:MD=K5:GOT 
0 K325 

312 IF ES>=3*K11+K1 THEN MH=K2:MD=K4:G 
OTO K325 

313 IF ES>=K12+K1 THEN MH=K2:MD=K3:GOT 
0 K325 

314 IF ES>-K1 THEN MH=K1:MD=K3:GOTO K3 
25 

315 IF A-K3+K9 THEN MH=K1:MD=K2:GOTO K 
325 

316 IF A=K10+K7 THEN MH=K1:MD=K1:GOTO 
K325 

317 IF A=K10+K6 THEN MD=K1;G0T0 K325 

318 IF A=K3 THEN MH=-K3:MD=-K2:GOTO K3 
25 

313 IF A=K4 THEN MH=~K2:MD=-K2:GOTO K3 
25 

328 IF A<=K6 THEN MH=-K1:GOTO K325 

325 IF D=K9+K9 THEN 1«=K3:MA=-K4:GOTO 
K335 

326 IF D=K9+K8 THEN MR=K2:MA=-K3:GOTO 
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K335 

327 IF D=K8+K8 THEN MR=K1:MA=~K2:GOTO 
K335 

328 IF D=K7+K8 THEN HA--K1:G0T0 K335 

329 IF D=KS THEN MA=K1:G0T0 K335 

336 IF D = K5 THEN MR=~K1:MA=K2:GOTO K33 


331 IF D=K4 THEN MR=~K2:MA=K3:GOTO K33 
5 

332 IF D=K3 THEN KR=~K3:MA-K4:GOTO K33 


337 

338 

339 

340 

341 


THEN H=K12+K10+X(K91:W=K13 


335 GRAPHICS liPOKE 712,128:P0KE 70S,2 
2:POKE 709,22:POKE 752,1:P0KE 718,128 

336 ? t*6:? t*6;" ";N$;"'S" 

t*6;" MODIFIERS :*■:? t*6 
t*6;" HIT *■;MH 

**6;" DAMAGE ";MD 

t*6; " A/C ADJUSTMENT ";MA 

It6;" R/A BONUS " ; MR 

345 X(51=XNT(7*RND(1)1:X(61=INT(9*RND( 
111:X(71=INT(11*RND(111:X(81=INT(13*RN 
D (111 :X(91=INT(25»RND(111 

346 X(61=INT(9*RND(111 

358 M(51=INT(40*RND(111:M(61=INT(30*RN 
D(111:M(71=INT(20*RND(111:M(81=INT(58* 
RND(111:M(91=INT(66«RND(111 

355 IF G$="F" THEN 365 

356 IF Y=K3 THEN H=K2*K11-K6+X(K71:W=K 
13+K11+K9+M(K51 

357 IF Y=K2 THEN H=KI2 + K6 + X (K71 :W=K13~ 
K10+M(K61 

358 IF Y=K4 THEN H=K12-K10~K1+X(K51:K- 
K3*Kil-K3+M(K71 

359 IF Y-K5 THEN H=K12+K10+X(K81:M=110 
+M(K51 

360 IF Y=K7 THEN H=KI2+K18+K2+X(K61: 
K16+M(K8! 

361 IF Y=K6 THEN H=K11+K10+K1+X(K61: 
80+M(K51 

362 IF Y=K1 
+K11+K5+M(K91 

363 GOTO 372 

365 IF Y=K3 THEN H=42+X(K61:H=K14+K4+M 
CK61 

366 IF Y=K2 THEN H=K12+X(K7J:W=K13~K5+ 
M(K7) 

367 IF Y-K4 THEN H=K6*K6+X(K51:W=K6*K1 
0+K7+M(K71 

368 IF Y=K5 THEN H=K12+K6 + X (K81 :W=K8*K 
10+M(K61 

369 IF Y=K7 THEN H=K12+K9+X(K51:H=K14+ 
K5+M(K81 

370 IF Y = 6 THEN H = 30 + X (51 ;W=42 + M(71 

371 IF Y = K1 THEN H=KI2+K6+X(K41:W=K14+ 
M (K91 

372 QlnlNT(H/121:02=01*12:03=H-Q2 

373 ? *16:? t*6:? *16;" HEIGHT "jOl;"'" 
; (13; CHRS (341 

374 ? t*6; " WEIGHT " ; W; "LBS . ** 

375 HPT —K0:O=K0:GOTO 400 

388 HP=INT(K4*RNDCK11+K21 :RETURN 
385 HP=INT(K6*RND(K11+K21:RETURN 
390 HP-INT(K8#RND(K11+K21:RETURN 
395 HP-INT(K18*RND(Kll +K21 :RETURN 
400 ? "WHAT LEVEL IS ";NS;:INPUT LiIF 
Z=K2 THEN L=L+K1 

406 IF L>18 THEN ? "NYOU CAN'T START A 
CHARACTER":? "OVER LEVEL 18. TRY AGO 

IN.":? : GOTO 408 

407 IF L<=0 THEN L=1 

408 FOR J=K1 TO L:IF Z = K1 OR Z=K3 THEN 
G05UB 395 

410 IF Z=K2 OR Z=K4 OR Z=K5 THEN GOSUB 
390 

415 IF Z=K6 OR Z = K7 THEN GOSUB 385 
420 IF Z=K8 OR Z=K9 OR Z=K18 THEN GOSU 
B 380 

422 HPT=HPT+HP:NEXT J:GOTO 431 

427 IF E=K9+K9 THEN HPT=HPT+(L*K41:GOT 
0 438 

428 IF E=K9+K8 THEN HPT=HPT+(L*K3>:GOT 
0 438 

429 IF E=K8+K8 THEN HPT=HPT+(L*K21:GOT 
0 438 

430 GOTO 432 


431 IF E>=K8+K8 THEN HPT=HPT+(L*K21:GO 
TO 438 

432 IF E-K9+K6 THEN HPT=HPT+L:GOTO 438 

433 IF E=K3 THEN HPT=HPT~(L*K21:GOTO 4 
38 

434 IF E<K8 THEN HPT=HPT~L 

438 ? t*6: ? t*6;" HIT POINTS "JHPT 
440 IF Z=K1 OR Z=K3 THEN IF L>=12 THEN 
? tt6;Y$j" 2/1":GOTO 456 

445 IF Z=K1 OR Z=K3 THEN IF L>=K6 THEN 

? H6jY$;" 3/2":GOTO 456 

446 IF 2-K2 THEN IF L>=16 THEN ? 1*6;Y$ 

j" 2/l":G0T0 456 

447 IF Z=K2 THEN IF L>=K7 THEN ? 1*6;Y$ 

'" 3/2" 

456 IF Y = K1 OR Y = K3 OR Y=K6 THEN GOSUB 
7000 

457 ? ”K";N$;" HAS ";GP;" GOLD PIECES" 

458 GOSUB 6130:? :? " PRESS ANY KEY 
TO CONTINUE" 

459 OPEN ttl,4,0,"K:":GET til, I:CLOSE ttl 
:IF I>0 THEN 460 

460 BS=INT(L/K41+ K2:IF Z=K6 OR Z=K7 TH 
EN 462 

461 GOTO 560 

462 GRAPHICS 1+16 


463 


t*6: ? 

**6:? t*6 : ? #6 


465 

7 

**6;" 

BS - - - - 

X";BS 

466 

? 

t*6;" 

PP - - - - 

";T (L,K11 

467 

? 

t*6;" 

LOCKS - - 

"; T(L,K21 

468 


t*6;" 

TRAPS - - 

"; T(L,K31 

469 

h 

t*6;" 

MS - - - - 

";T(L,K41 

470 

? 

t*6;" 

HS-- - 

“;T(L,K51 

471 

7 

1*6;" 

HEAR - - - 

"; T(L,K61 

472 

7 

t*6;" 

CLIMB - - 

";T(L,K71 

473 

7 

J*6;" 

LANGUAGES 

'*; T (L . K81 

474 

7 

t*6: ? 

t*6:? 1*6;" 


■ I 


475 FOR I=K1 TO K10 A 3#K5;NEXT I 

500 IF Z=K8 OR Z=K9 THEN 505 

501 IF Z=K10 THEN 550 

502 GOTO 4999 

505 GRAPHICS 2+16 S POKE 712 .168 
518 ? tt6 :? tt6 : ? tt6 :? 1*6;" 

01 ";MU(B,11 

515 ? tt6: ? 116;" 

,21 

? 1*6 :? tt 6 ;" 


CHANCE TO KN 


";Mii(B 


MAXIMUM SPELLS 


MONKS TABL 


520 
,31 

538 FOR I=K1 TO 460O:NEXT I 
535 GOTO 4999 

550 GRAPHICS 1+16:P0KE 712,212:P0KE 71 
0,224 

551 ? 1*6:? tt6: ? H6:? 1*6;" 

S":? »6 

552 ? It6 :? #6;" ARMOR CLASS HK (L 

,11 

553 ? 1*6;" MOVE "; MK CL , 21 ; " * " 

554 IF MK(L,K31=K1 THEN M$="l" 

555 IF MK(L,K31=54 THEN N$="5/4" 

556 IF MK(L,K3)=32 THEN MS="3/2" 

557 IF MK(L,K31=K2 THEN MS="2" 

558 IF MK(L,K31=52 THEN M$=”5/2" 

559 IF f«{L,K31=K3 THEN MS="3” 

566 IF MK(L,K31=K4 THEN M$="4" 

561 ? *16;" ATTACKS/ROUND ";MS 

562 IF MK(L,K41-13 THEN DS="1D3" 

563 IF MK(L,K41=14 THEN DS="1D4" 

564 IF MK(L,K41=16 THEN D$="1D6" 

565 IF MK(L,K4>=27 THEN D$=”lD6+i" 

566 IF MK(L,K41-28 THEN DS="2D4” 

567 IF MK(L,K4!=39 THEN D$=*'3D3" 

568 IF MK(L,K41-212 THEN D$="2D6" 

569 IF MK(L,K41=312 THEN D$="3D4" 

570 IF MK(L,K41=413 THEN D$="3D4+1" 

571 IF MK(L,K41=416 THEN D$="4D4" 

572 IF MK(L,K41=517 THEN D$="4D4+1" 

573 IF MK(L,K41=520 THEN D$="5D4" 

574 IF MKCL,K41=624 THEN DS="6D4" 

575 IF MK(L,K41=530 THEN DS="5D6" 

576 IF MK(L,K4!=832 THEN DS="4D8" 

577 ? t*6;" DAMAGE/ATTACK ";D5 

578 ? 1*6:? t*6.*? **6i 


579 ? **6;" 

580 ? t*6; " 
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599 FOR I=K1 TO 5O0OINEXT I 

1999 GOTO 4999 

2000 ? "44IF YOU’RE HAVING TROUBLE PIC 
KING”:? !! A NAME FOR YOUR CHARACTER, PE 
RHAPS” 

2005 ? ’’YOU'D LIKE A FEW SUGGESTIONS. 

II 


2010 ? ’’YOU’RE WELCOME TO USE ONE OF T 


HESE:’’ 

2015 ? "44SETH THE HUGE’’, •’BUCKTHORN’’ 

2016 ? "AARON THE SHIFT",’’ELLIDE" 

2017 ? "BRIAN OF BLACKMOOR","JANO" 

2018 ? "ALONSO THE HOOK","TAPHENESE" 

2019 ? "SIR BAGLEY","BAAREN SATO" 

2020 ? "44IF YOU WANT ONE OF THESE ■ JU 
ST":? "TYPE IN THE NAME AND PRESS laiHI 


2022 ? "4IF YOU DON’T, TYPE ’NO* AND P 
RESS":? " UMTlirc .":? "4NAME"::INPUT NS: 
IF N$="NO" OR NS="N" THEN NS="WHOOZIT" 
2028 GRAPHICS UPOKE 708,40:POKE 752,1 


:RETURN 


2550 A=J(K1):B=JCK2):C=J(K3J:A1=J(K4) : 


B1=JCK5):C1=J(K6):? "N" 

2555 ON Y-Kl GOTO 2600,2580,2630,2650, 

2670,2780 

2576 RETURN 

2580 IF A<K8 THEN ? NS;ZSl? STS;B$J" D 
WARF.":GOTO K17 

2585 IF B1<K6*K2 THEN ? NSjZS:? CNS;B$ 
J" DWARF.":GOTO K17 

2590 IF GS="F" THEN IF JtKl)>K9+K8 THE 
N JCK1)=K10*K7 

2595 IF JCK4J>K9+K8 THEN JCK4)=K9+K8 
2597 IF J (K6) >K8 + K8 THEN JCK6)=K8+K8 

2599 RETURN 

2600 IF B <K8 THEN ? NSjZS:? INS;BS;"N 
ELF.":GOTO K17 

2605 IF A1<K7 THEN ? N$;ZSl? DXSjBS;"N 


ELF.":GOTO K17 

2610 IF 81<K6 THEN ? N$;Z$i? CN$;BS;"N 
ELF.":GOTO K17 

2615 IF C1<K8 THEN ? NS;ZSl? CH$;BS;"N 
ELF.":GOTO K17 

2620 IF G$="F" THEN IF JCK1)>K8+K8 THE 
N J(K1)=K8+K8 
2625 RETURN 

2630 IF A<K6 THEN ? N$;Z$I? STSjBS;’* G 


NOME.":GOTO K17 

2635 IF B<K7 THEN ? NS;ZSl? INS;BSj" G 
NOME.":GOTO K17 

2640 IF B1<K8 THEN ? NS;ZS:? CNS;8S;" 
GNOME.":GOTO K17 

2645 IF G$-"F" THEN IF JtKlJ>K3*K5 THE 
N J(K1J=K3*K5 
2648 RETURN 

2650 IF B<K4 THEN ? N$;ZS:? INS;BS;" H 
ALF-ELF.":GOTO K17 

2655 IF A1<K6 THEN ? N$;ZS:? DXSjBS;" 


HALF-ELF.":GOTO K17 

2660 IF B1<K6 THEN ? NS;ZSl? CNSjBS;" 
HALF-ELF.":GOTO K17 

2665 IF GS="F" THEN IF JCK13>K9+K8 THE 
N J(K1)=K9+K8 
2668 RETURN 

2670 IF A<K6 THEN ? N$;ZSl? STSjBS;" H 
ALFLING.":GOTO K17 

2675 IF B<K6 THEN ? NS;ZSl? INS;BS;" H 
ALFLING . : GOTO K17 

2680 IF A1<K8 THEN ? NS;ZSl? DXSjBS;" 
HALFLING."IGOTO K17 

2685 IF B1<K10 THEN ? NS;ZSl? CNSjBS;" 
HALFLING.":GOTO K17 

2690 IF GS="M" THEN IF JCK1)>K9+K8 THE 
N JCK1)=K9+K8 

2694 IF G$="F" THEN IF JCK1)>K7+K7 THE 
N J(Kl)-K7+K7 

2695 IF J(K3)>K9+K8 THEN J(K3)=K9+K8 

2696 RETURN 

2700 IF A<K6 THEN ? N$;ZSl? ST$;BS;" H 
ALF-ORC.":GOTO K17 

2705 IF B1<K6+K7 THEN ? NS;ZSl? CNS;B$ 
HALF-ORC.":GOTO K17 
2710 IF J (K2)>K9+K9 THEN J(K2)=K9+K8 
2715 IF J (K33 >K7 + K7 THEN JtK3)=K7+K7 
2720 IF J(K4)>K7+K7 THEN J(K4)=K7+K7 


2725 IF J(K63>K6+K6 THEN JCK6J=K6+K6 
2730 RETURN 

4999 GRAPHICS 1:5ETC0L0R 2,L,4:P0KE 75 
2,1:SETCOLOR 4,L,4:G0T0 160 

5000 A=F(Kl):B-FCK2):C = F(K3):D-F tK4) :E 
-F CK5) : F-F CK6) :? "IS" 

5005 ON Z GOTO 5100,5200,5300,5400,550 
0,5600,5700,5800,5908,5950 

BFTIIQM 

5100 IF A<K9 THEN ? N$;ZS:? STS;BSj" F 
IGHTER.":GOTO K241 

5105 IF E <K7 THEN ? NSjZS:? CNSjBS;" F 
IGHTER.":GOTO K241 
5110 RETURN 

5200 IF A<K10+K3 THEN ? NSjZS:? STS;BS 
RANGER .’’ IGOTO K241 

5205 IF B<K18+K3 THEN ? NS;ZS:? INS;B$ 
;" RANGER.":GOTO K241 

5210 IF C<K10+K4 THEN ? M$;Z$:7 WlS;BS 
RANGER."IGOTO K241 

5215 IF E<K10+K4 THEN ? N$;Z$:? CNS;BS 
RANGER."IGOTO K241 

5220 IF Y=K3 THEN ? DWS;"RANGERS.":GOT 
0 K241 

5225 IF Y-K2 THEN ? E$;"RANGERS = ";60T0 
K241 

5230 IF Y=K4 THEN ? GNS;"RANGERS.":GOT 
0 K241 

5235 IF Y=K6 THEN ? HAS;"RANGERS.“:GOT 
0 K241 

5240 IF Y=K7 THEN ? HOS;"RANGERS.":GOT 
0 K241 
5245 RETURN 

5300 IF A <K10+K2 THEN ? NSjZS:? STS;BS 
;" PALADIN.":GOTO K241 

5385 IF B<K9 THEN ? NSjZS:? INSjBS;" P 
ALADIN.":GOTO K241 

5310 IF C<K10 + K3 THEN ? NSjZS:? WlS;BS 
J" PALADIN."IGOTO K241 

5315 IF E<K9 THEN ? NSjZS:? CNSjBS;" P 
ALADIN.":GOTO K241 

5320 IF F<K9+K8 THEN ? NS;ZS:? CHS;BSj 
" PALADIN."IGOTO K241 

5325 IF YOK1 THEN ? "ONLY HUMANS CAN 
BE PALADINS."IGOTO K241 
5330 RETURN 

5400 IF C<K9 THEN ? NSjZS:? WI$;BSj" C 
LERIC."IGOTO K241 

5405 IF Y-K6 THEN ? HAS;"CLERICS.":GOT 
0 K241 
5410 RETURN 

5580 IF C<K10 + K2 THEN ? NSjZS:? WlS;BS 
;" DRUID."IGOTO K241 

5505 IF F <K10+K5 THEN ? NS;ZS:? CHS;B$ 
J" DRUID."IGOTO K241 

5510 IF Y-K3 THEN ? DWS;"DRUIDS.":GOTO 
K241 

5515 IF Y=K2 THEN ? ES;"DRUIDS.":GOTO 
K241 

5520 IF Y-K4 THEN ? GNS;"DRUIDS.":GOTO 
K241 

5525 IF Y=K7 THEN ? HOS;"DRUIDS.":GOTO 
K241 

5530 RETURN 

5600 IF D<K9 THEN ? NSjZS:? DXS;BS;" T 
HIEF."IGOTO K241 
5605 RETURN 

5700 IF A<K10 + K2 THEN ? NSjZS:? STS;B$ 

;"N ASSASSIN."IGOTO K241 

5705 IF B<K104K1 THEN ? NSjZS:? INS;BS 

;"N ASSASSIN."IGOTO K241 

5710 IF D<K10+K2 THEN ? NSjZS:? DXSjBS 

;"N ASSASSIN."I GOTO K241 

5720 IF Y=K6 THEN ? HAS;"ASSASSINS." I G 

OTO K241 

5725 RETURN 

5800 IF B <K9 THEN ? NS;ZSl? INS;BS;" M 
AGIC-USER."IGOTO K241 

5805 IF D<K6 THEN ? NS;ZSI? DXS;BS;" M 
AGIC-USER."IGOTO K241 

5810 IF Y=K3 THEN ? DHS;"MAGIC-USERS." 
IGOTO K241 

5815 IF Y=K4 THEN ? GNS;"MAGIC-USERS.” 
IGOTO K241 

5820 IF Y=K7 THEN ? HOS;"MAGIC-USERS." 
IGOTO K241 
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5825 IF Y=K6 THEN ? HAS;"MAGIC-USERS." 
:GOTO K241 
5838 RETURN 

5980 IF B<K10+K5 THEN ? NSjZS:? INS;B$ 

;"N ILLUSIONIST.":GOTO K241 

5905 IF D<K10+K6 THEN ? NS;ZS:? DKSjBS 

;"N ILLUSIONIST.":GOTO K241 

5910 IF Y=K3 THEN ? DWS;"ILLUSIONISTS. 

":GOTO K241 

5915 IF Y=K2 THEN ? ES;"ILLUSIONISTS." 
:GOTO K241 

5920 IF Y=K7 THEN ? HOS;"ILLUSIONISTS. 
":GOTO K241 

5925 IF Y-K6 THEN ? HAS;"ILLUSIONISTS. 
":GOTO K241 
5930 RETURN 

5950 IF ACK10+K5 THEN ? NSjZS:? STS;BS 
;" MONK.":GOTO K241 

5955 IF C<K10+K5 THEN ? N$;ZS:? MlS;BS 
;" MONK.":GOTO K241 

5960 IF 0<K10+K1 THEN ? NS;ZS:? DXS;BS 
J" MONK.":GOTO K241 

5965 IF E<K10+K1 THEN ? NS;ZS:? CN$;BS 
J" MONK.":GOTO K241 

5970 IF YOKI THEN ? "ONLY HUMANS CAN 
BE MONKS.":GOTO K241 
5975 RETURN 

6130 IF 0=18 THEN TCL,K1J= TCL,K1J+K10: 
TCL,K2J-T CL,K2J+15:T CL,K3J=T CL,K3)+K5: 
TCL,K4)=TCL,K4J+10:TCL,K5J=TCL,K5)+10 

6131 IF D=K18+K7 THEN TCL,K1J= TCL,K1J+ 
K5:TCL,K2)=TCL,K2J+K10:T CL,K4>=TCL,K43 
+K5:T CL f K5J = T CL,K53 +K5 

6132 IF D=K10+K6 THEN TCL,K2J=TCL,K2J+ 
K5 

6133 IF D=K10+K2 THEN T CL,K4)=T CL,K4J- 
K5 

6134 IF D-K10+K1 THEN T CL,K1J-T CL,K1J- 
K5:T CL,K3)= T CL,K3J~K5:T CL,K4J =TCL,K4J- 
K10 

6135 IF Y = K3 THEN TCL.K2J-T CL.K2J+K10: 
T CL,K3J =T CL,K3J +15 : T CL,K7J=T CL,K7J-K10 
:TCL,K8J=TCL,K85~K5 

6136 IF Y=K2 THEN TCL,K1J=TCL,K1J+K5:T 
Cl., K2J =T CL, K2J -K5 : T CL, K4J =T CL , K4I +K5 : T 
CL,K53=TCL,K5)+K10:TCL,K6)-TCL,K6)+K5 

6137 IF Y=K4 THEN T CL,K23=T CL,K2I+K5:T 
CL,K3J=TCL,K33+K10:TCL,K4J=TCL,K4J+K5: 
TCL,K5)=TCL,K5J+K5:TCL,K6J=TCL,K6J+10 

6138 IF Y=K4 THEN T CL,K7)-T CL,K7)-K15 

6139 IF Y-K5 THEN TCL,K13=TCL,Kll+K10: 
TCL,K5J=TCL,K5)+K5 

6140 IF Y=K6 THEN TCL,K1J=TCL,Kl)+K5:T 
CL,K2J=T CL,K2)+K5:T CL,K3J-T CL,K3J+K5:T 
CL,K43=TCL,K43+K10 

6141 IF Y=K6 THEN TCL,K5J=TCL,K5J+K10+ 
K5:T CL,K6)=T CL,6)+K5:T CL,K7)-T CL,K7I-K 
10+K5:T CL,K8J-T CL,K8)~K5 

6142 IF Y=K7 THEN TCL,K1J=TCL,Kl)-K5:T 
CL,K2J=T CL,K2)+K5:T CL,K3)-TCL,K3)+K5 

6143 IF Y = K7 THEN T CL,K6J-T CL,K6J+K5:T 
CL,K7J=TCL,K7J+K5:T CL,K8)=T CL,K8)-K10 
6200 RETURN 

7000 AI=INT C2.5*B-16J :AM=INT Cl.5*C~163 
:AC=INTC0.5*F-16) 

7001 IF AI<0 THEN AI=0 

7002 IF AM<0 THEN AM=0 

7003 IF AC <0 THEN AC=0 
7084 AT=AI+AM+AC 

7005 PS=INTCK13*RNDCK1)+AT + 1J : IF PS>=K 
13 THEN ? tt6:? 1*6;" ";NS;" HAS":? 1*6;" 
PSIONIC ABILITY" 

7010 AI=B-12:AU=C-12:AC=F-12:IF AI<0 T 
HEN AI=K0 

7011 IF AM<K0 THEN AM=K0 

7012 IF AC <K0 THEN AC=K0 

7013 AT=AI+AM+AC 

7015 MP=K0:OT=K0:IF B>16 THEN 0T=0T+K1 

7820 IF 016 THEN 0T=0T+K1 

7025 IF F>16 THEN 0T=0T+K1 

7030 IF 0T=K2 THEN MP=K2 

7835 IF 0T=K3 THEN MP=K4 

7040 PST=INT CK13*RND CK1J +K13 +AT*MP 

7045 IF PS>-K13 THEN ? "NPSIONIC ABILI 

TY = ";PST*K2 


7050 IF PS>=K13 THEN ? "PSIONIC STRENG 
TH = ";PST:FOR 1=1 TO 2OO0:NEXT I 
7055 RETURN 

8O00 ERLN=256*PEEK C187J +PEEKC186J 
8810 CUR=PEEKC90):? "N":? "INPUT ERROR 
— TRY AGAIN!":FOR 1=1 TO 50:SOUND 0, 
1+50,10,8:NEXT I:SOUND 6,0,0,0 
8020 TRAP 8800:GOTO CERLN1 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 400,646,294,906,573,733,840,75, 

164,290,307,670,642,162,878,7580 

75 DATA 779,953,859,964,820,531,652,63 

8,208,981,850,829,789,454,917,11224 

105 DATA 903,725,877,652,209,722,201,7 

01,592,73,764,366,606,497,591,8479 

192 DATA 58,773,366,178,279,815,74,452 

,522,485,817,848,185,465,554,6871 

236 DATA 17,249,288,686,714,379,685,3, 

317,65,53,57,65,49,159,3786 

253 DATA 226,160,424,821,503,736,291,8 

0,10,461,559,78,528,442,207,5526 

316 DATA 446,660,381,382,729,393,386,3 

79,603,93,33,37,41,107,809,5479 

337 DATA 299,54,232,810,475,878,10,256 

,793,350,626,276,254,643,782,6738 

362 DATA 281,735,415,515,209,881,846,1 

72,507,122,333,644,301,424,433,6818 

390 DATA 435,617,205,269,511,269,567,6 

76,691,234,736,733,730,715,605,7993 

432 DATA 984,355,534,141,605,697,631,5 

02,807,705,217,512,468,716,216,8090 

463 DATA 441,2,498,674,716,504,486,653 

,658,959,331,418,835,807,4,7986 

505 DATA 780,272,560,572,448,16,452,84 

0,621,800,886,820,803,813,817,9420 

559 DATA 819,817,582,799,803,810,269,8 

16,822,996,995,48,2,62,997,9637 

574 DATA 10,6,25,452,399,156,871,478,8 

13,773,57,674,653,290,427,6084 

2018 DATA 800,287,536,605,93,285,185,8 

15,280,630,207,394,403,823,421,6764 

2605 DATA 76,45,48,13,811,288,264,342, 

996,819,628,703,674,30,821,6558 

2670 DATA 713,688,778,379,37,22,393,82 

0,698,25,376,379,374,386,805,6873 

4999 DATA 303,943,27,802,778,728,791,8 

26,815,813,815,540.635,527,514,9849 

5240 DATA 534,807,928,742,915,728,81,9 

55,799,880,472,800,951,948,634,11174 

5515 DATA 236,621.637,885,451.815,412. 

399,409,46,820,183,187,80,76,6177 

5820 DATA 73,54,814,924,953,628,256,62 

1,602.817,565,559,554,544,576,8540 

5975 DATA 831,197,387,875,881,473,366, 

480,328,827,796,449,131,857,108,7986 

6200 DATA 795,648,7,79,981,290,152,703 

,56,998,289,913,365,378,102,6756 

7035 DATA 116,555,697,952,806,33,188,2 

50,3597 
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DUNGEONS & DRAGONS 
HOUSEKEEPING 2 


32K Cassette or Disk 
by Bob Curtin 


With the addition of the random access capability 
of a disk drive, Dungeons & Dragons House¬ 
keeping (disk version) comes into its own, with 
several new functions, bilateral combat, and a dras¬ 
tically cleaned-up act. The following is a detailed 
rundown of each of the program functions and, 
where applicable, some suggestions on their use. 
This program is quite flexible and, with a little ima¬ 
gination, can make your job as a Dungeon Master a 
whole lot easier. 

Incidentally, when I use the term "monster,” I’m 
referring to all non player-character creatures, 
whether human, drooling beast, or anything in be¬ 
tween. Players and player-characters are, of course, 
the people for whom you’re running the dungeon, 
and the characters they’re playing. 

I do have one word of caution. If, when you’re 
typing in this program, you’re rewarded with an 
ERROR 4 (too many variables), don’t panic. First, 
find your typing error, change it, and then follow the 
procedure outlined in pages 2 and 3 of your BASIC 
Reference Manual for wiping out excess variable 
names. The reason for the problem in the first place 
is the fact that I’ve used all 128 variable names avail¬ 
able, and if you inadvertently add one of your own, 
you’ll get that error. 

M - MELEE (combat) 

Where the cassette version of D&D Housekeep¬ 
ing handled the combat for the player characters 
only and left the monster combat to be done man¬ 
ually, the disk version does it all. 

The MELEE function works very closely with the 
ENTER ROOM and LOAD ROOM functions. 
Those two functions make the monster data avail¬ 
able for combat purposes as needed. The player 
character data is always contained in memory, but 
the monster data is loaded as encountered, either 
from disk or on the fly. The computer asks only 
which opponent is to be fought. The players, of 
course, make that choice for themselves, and you as 


the Dungeon Master make that choice for the mon¬ 
sters. As in a normal dungeon, you’d have some sort 
of graphic representation of the battle set up on the 
table top — usually with miniature figures. 

In order, the computer makes the following com¬ 
putations: The attacker’s class and level are looked 
up and the appropriate combat table consulted to 
obtain a "to hit” number against the opponent’s 
armor class. A random number is generated and any 
hit modifiers added. If a hit is obtained, damage is 
"rolled” based on the weapon used, and then any 
damage modifiers are added on. Hit points lost are 
automatically deducted. The computer then checks 
•to see if the attacker is entitled to more than one 
attack this round, either because of weapon type or 
level, and if so, repeats the procedure. Otherwise 
play passes to the next combatant. 

The combat alternates back and forth between the 
players and monsters, that is, all players make their 
attacks, then all monsters make theirs, etc. Killed or 
unconscious combatants are automatically removed 
from the cycle, and combat can be broken off at any 
time, either individually or en masse. 

Each player character may have up to five 
weapons, but weapon number 5 is reserved for mis¬ 
sile weapons. As such, it’s the only weapon modified 
by the R/A Bonus, and conversely not modified by 
normal hit and damage modifiers. Weapon number 
5 may also be assigned multiple hits per round. For 
instance, D&D rules allow a player with a short bow 
to fire two arrows per combat round. It’s conceiv¬ 
able for a player with multiple rounds of combat to 
fire up to six arrows in a turn! 

By entering '33’ as an opponent number and 
pressing RETURN, spell damage may be inflicted on 
the monster of your choice. If the spell affects more 
than one monster, you can repeat the procedure as 
many times as desired by pressing 'S’. To pass play to 
the next player, just press any other key. You may 
add hit points to the monster of your choice by en- 
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tering the amount of hit points you wish to add in the 
form of a minus number. For instance, suppose the 
party were fighting a particularly nasty troll which 
regenerated ten hit points a turn. After every turn, 
simply enter the MELEE mode, use the spell func¬ 
tion for the first available character, and enter minus 
ten (-10) as the amount of damage inflicted by the 
spell. Ten hit points will be added to the monster 
whose number you designated. After returning to 
the main menu (by entering '32’ and pressing RE¬ 
TURN) you may resume play normally. 

Entering '34’ as an opponent number will take you 
directly into the monster combat. This is useful for 
those times when the bad guys have the initiative. 
Note that, once into monster combat, you may pass 
play onto the next monster by pressing 'P’ or return 
to the main menu by pressing ’R’. The only other 
commands recognized in that mode are the numbers 
0 to 9, corresponding to the player characters’ num¬ 
bers. 

Damage inflicted by non-combat means may be 
entered directly through the character sheet mode, 
which is why I didn’t include a spell function in the 
monster side of the combat. 

A word to the purists out there. D&D combat can 
get as complex as you could possibly want, with in¬ 
numerable modifiers, zone hits, partial armor des¬ 
truction, ad nauseum. This program definitely does 
not take all that there is in D&D combat rules into 
account. It’d take a program all by itself to do that. 
The basic combat system is retained without modifi¬ 
cation, with the different combat tables for the dif¬ 
ferent classes, hit and damage modifiers, multiple 
attacks, missile attacks, and so on. Those of you 
who’re sticklers for detail and thrive on complexity 
would perhaps be better served by doing your 
combat manually and using the rest of the program 
for housekeeping. 

# - CHARACTER SHEET 

From the main menu, pressing a number between 
0 and 9 inclusive will display a character sheet on the 
screen. The sheet contains the essential information 
on each character which is needed as a reference 
throughout the game. 

Hit points, money, and weapon status can be 
changed directly in this mode, and all other informa¬ 
tion can be changed through the initialization mode. 
Additional information can be kept in an individual 
file accessed through the ROOMS function. This 
additional file would contain listings of weapons, 
armor, equipment, special items, magical spells, etc., 
as well as any pertinent information on the character 
itself, like special talents, skills, and so on. 

You may directly enter MELEE, ROOMS, or re¬ 
turn to the main menu by pressing M, Z, or R, res¬ 
pectively. 


S - DUNGEON STATUS 

The status display lists the dungeon time, the date, 
weather conditions (outside, of course), tempera¬ 
ture, and wind. The weather conditions are random 
and not subject to control by the DM, although they 
can certainly be ignored if they don’t fit into the 
scheme of things. 

The time and date, on the other hand, can be 
changed. Pressing '1’ will increment the time by ten 
minutes, '2’ by an hour, and '3’ by a day. In addition, 
one minute is added to the time for every combat 
round played. 

Press 'R’ to return to the main menu. 

E - ENTER ROOM 

To explain the ENTER ROOM function, I also 
have to explain the LOAD ROOM function at the 
same time. Pressing 'E’ will cause the question, 
"What is the room number?” to be displayed on the 
screen. It is asking you which of the files created by 
LOAD ROOM you want to be dumped into mem¬ 
ory. At this point, I’ll explain the LOAD ROOM 
function and come back to ENTER ROOM. 

L - LOAD ROOM is a routine which allows you to 
load monster data into files to be called up later by 
the ENTER ROOM function. This data is used in the 
MELEE function, and is actually all of the monster 
statistics for combat resolution. The data includes 
the number of monsters, hit dice, individual hit 
points, number of attacks, and the damage per at¬ 
tack . 

Pressing L will fetch up the same question: "What 
is the room number?” You may enter any 3-character 
code you wish. (This is actually the filename exten¬ 
der for a file called D:COMBAT.) The code can be 
any combination of three numbers and/or letters, 
but if you were smart, you’d code them to corres¬ 
pond to the room numbers on your dungeon map, or 
the numbered encounter areas in your outdoor dun¬ 
geon. You can use this function to store the statistics 
for taverns full of troublemakers, and you can also 
use it to load statistics on the spot for unexpected or 
random encounters. 

As an example of how these two functions work, 1 
give you the following. Every good Dungeon Master 
has a map of his dungeon and some sort of key to tell 
him what’s in each of the rooms. The rooms are nor¬ 
mally numbered, and the key describes what’s in 
each of the numbered rooms, including traps, mon¬ 
sters, treasure, etc. As the dungeon party explores 
the different rooms, they battle the monsters lurking 
within, with the Dungeon Master taking the monster 
statistics from his key and conducting the combat 
manually. With this program, you’d simply type in 
the room number to load the statistics into memory 
and then use the MELEE function to conduct com¬ 
bat. 
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By loading the monster data into files ahead of 
time, the dungeon runs smoothly and with a mini¬ 
mum of time spent on game mechanics. Your players 
get more actual playing time, and your computer 
does most of the work. 

After you’ve assigned a room number, the LOAD 
ROOM function will then ask, "How many mon¬ 
sters?” Simply type in the number of monsters in 
that particular room or encounter area. You will then 
be asked for the monsters’ hit dice (equivalent to a 
character’s level). You may not have monsters of 
different levels in the same room. If you insist on it, 
add up the levels and divide by the number of mon¬ 
sters to get an average. It works out pretty close. 
You’ll be asked next for the monster armor class. If 
you have monsters with different armor classes, take 
an average, or do the odd ones by hand. 

Next, give the hit points for each monster. Here, 
you can compensate for averaged armor class or level 
by adding hit points. 

After all of the monsters have been assigned their 
hit points, you’ll be asked the number of attacks per 
turn for each monster (you know, the old claw/claw/ 
bite routine). Again, you must average out the dam¬ 
age for attacks which are different. For instance, if 
the claws did 4 hit points damage and the bite did 8, 
add them together (4 + 4 + 8) and divide by the 
number of attacks (3 in this case), rounding up any 
fractions. 

After you type in the damage per attack, a file will 
automatically be created, and the program will 
return to the main menu. Note that the statistics you 
just entered are still in memory, so you could go right 
to MELEE if you wished. 

Lastly, the maximum number of monsters which 
can be in a single file is thirty. 

D - DICE 

Entering a number of any magnitude, including 
negative numbers, will generate a random number 
between that number and one, inclusive. By enter¬ 
ing anything other than a number, the program will 
return to the command menu. 

FILE DATA and GET DATA 

Pressing 'F’ or 'G’ will conjure up the respective 
routines for saving or retrieving the character statis¬ 
tics and dungeon status data stored in memory. I 
made this a two-step process so that, if either letter is 
pressed accidentally, you have a chance to override 
the command. 'Y’ will initiate the command, and’N’ 
will override and return the program to the 
command menu. 

To file data, type in any legal filename, but without 
the device call. In other words, if you wanted your 
filename to be *'D:MURRAY. 123”, simply type 
MURRAY. 123. 

If, when retrieving data, you call for a non-existent 
file, the program will list the files on the disk in the 


disk drive and then return to the command menu. 

To get data, follow the same procedure as filing 
data. 

I - INITIALIZATION 

This mode is used to initially enter the player char¬ 
acter statistics, change statistics, or add new player 
characters. Note that, before any data is entered, the 
player number must be specified. Once you’ve iden¬ 
tified a particular player, you may enter any number 
of statistics. If you want to enter data for another 
player, you must re-identify him. 

Most of the entries are self-explanatory, but a few 
need some words of clarification. 

As I stated before, each character may have a maxi¬ 
mum of five weapons in this program, and each 
weapon must be assigned a number. Weapons one 
through four are hand held weapons, and the 
number you’ll be asked to enter is the maximum 
possible damage that the weapon can inflict. For in¬ 
stance, player 2’s number one weapon is a longsword 
capable of 1-8 hit points of damage. You’d simply 
enter an 8 when called upon to do so. If no weapon 
exists for a particular number, enter 0. 

The number of attacks per round must be entered 
as follows. Enter 1 for one attack per round. Enter 2 
for two attacks per round. Enter 3 for three attacks 
every two rounds. 

Finally, enter exceptional strength bonuses in the 
form of a decimal (18/77 would be entered as 
18.77). 

ROOMS and WRITE 

The biggest headache in running a dungeon is or¬ 
ganizing the maps, room descriptions, character 
sheets, combat tables, reference books, index cards, 
notes and dice into a system where information can 
be looked up and processed quickly enough to keep 
the game from bogging down. It isn’t easy or even 
always possible. This part of the program can help, 
though, by eliminating the need for a lot of that 
paperwork. 

The WRITE function allows you to write room 
descriptions, non-player character sheets, artifact or 
treasure descriptions, or virtually anything you 
want, and save it on disk. You’d code the files with 
the same 3-digit code used for the LOAD ROOM 
files, except this filename extender belongs to a file 
named D:WITCHES. The reason for the different 
filenames is so that you could have a room descrip¬ 
tion and a monster data file with the same code num¬ 
ber. The intent of this feature was to enable a Dun¬ 
geon Master to type his room descriptions and save 
them on disk. At the same time, any monsters in 
those rooms would have data files created for them 
with the same room numbers. The DM would then 
only have to type 'Z’ and a room number to see what 
was in the room, and, if combat was likely, to call up 
the monster data file through the ENTER ROOM 
function to resolve it. 
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You’re not limited to a single screen of text, either. 
You can write up to 300 lines of text, or roughly thir¬ 
teen screens on a single file. When the file is called 
back, only one screen at a time will be displayed; 
pressing any key will display subsequent lines. 

To use the WRITE function, type in a code num¬ 
ber. A data file will be created. The screen will clear, 
except for a question mark, which is actually an 
input prompt. Simply enter one line at a time, press¬ 
ing RETURN at the end of the line. If you want to 
leave blank lines, just press RETURN. When you’ve 
finished and want to file it, press RETURN, type one 
asterisk (*), and press RETURN again. 

To retrieve what you’ve written, press 'Z’ - 
ROOMS and type the same code number. What 
you’d written will be displayed on the screen. 

The applications for this particular function are 
many and varied. For example, you could possibly 
use the keyboard graphics symbols to create room 
diagrams along with the descriptions. Use your 
imagination, experiment with it, and above all prac¬ 
tice using it until the commands become second 
nature. I think you’ll find that the speed and accur¬ 
acy are well worth the effort. □ 


Program outline. 

Lines 4-24 — Initialization 
Lines 25-75 — Combat tables 
Lines 80-86 — More Initialization 
Lines 89-98 — Input number of players 
Lines 100-550 — Combat routine, combat 
table adjustment &. multiple attacks routine 
Lines 1000-2050 — Race input and display 
Lines 3000-3030 — Save character data 
Lines 3500-3525 — Retrieve character 
data 

Lines 4000-6045 — Store character data 
(Initialization Mode) 

Lines 6200-6900 — Monster Combat 
Lines 6905-6915 — ENTER ROOM rou¬ 
tine 

Lines 7000-7175 — Weather, time, date, 
etc. routines 

Lines 7500-7600 — ROOMS routine 
Lines 8050-8075 — DICE routine 
Lines 8500-8590 — WRITE routine 
Lines 9000-9019 — Main Command Menu 
Lines 9505-10065 — Character Sheet dis¬ 
play and input 

Lines 15000-15040 — LOAD ROOM rou¬ 
tine 

Lines 20000-20005 — Input Error Han¬ 
dler 

Lines 30000-30055 — Disk directory 
lister 


Command table. 


MODE 

COMMAND 

RESULT 


0 to 29 

Indicates the number of the player 
character's opponent in combat 

MELEE 

31 

Pass play to next player 


32 

Return to main menu 


33 

Activate the Spell Function (‘S’ to 
repeat) 


34 

Go directly to monster combat 

Monster 

‘N’ 

Return to main menu 

Combat? 

*Y’ 

Go to monster combat 


•P’ 

Pass play to next monster 


‘R’ 

Return to main menu 


0 to 9 

Indicates the monster's opponent 
in combat 


0 to 9 

Displays the indicated player’s 
statistics 

CHARACTER 

*W’ 

Prepare/put away weapon. 0 - put 

SHEET 


away weapon. 1 to 5 - weapon num¬ 
ber prepared 


‘H’ 

Change Hit Points 


■G’ 

Change Gold Pieces 


‘S’ 

Change Silver Pieces 


■C' 

Change Copper Pieces 


‘E’ 

Change Electrum Pieces 


•P* 

Change Platinum Pieces 


‘Z’ 

Go to ROOMS function 


‘M’ 

Go to MELEE function 


‘R' 

Return to Main Menu 


1 

Increments minutes by ten 

DUNGEON 

2 

Increments hours by one 

STATUS 

3 

Increments days by one 


‘R’ 

Return to Main Menu 


XXX 

Any three-character alphanumeric 

ENTER 


code calls up and loads the mon- 

ROOM 


ster combat statistics filed under 
that code by the LOAD ROOM 
function (filename: "D:COMBAT. 
XXX) 

DICE 

Any number 

Generates a random number be¬ 
tween 1 and the number entered. 
Will accept negative numbers. 


Any letter 

Return to main menu 

FILE 

Any legal filename 

Files player character statistics and 

DATA 


Dungeon Status data under given 
filename (see text for details) 

GET 

Any legal filename 

Retrieves player character statis- 

DATA 


tics and the Dungeon Status Data 
filed under the given filename (see 
text for details) 

INITIALIZATION 


Stores statistics in memory per the 
listed items. Note that the player 
number must bespecififed first, be¬ 
fore any other data is entered. 

LOAD ROOM 

XXX 

See ENTER ROOM and text 

WRITE 

XXX 

Allows you to type up to thirteen 
screens full of text and save it to 
disk under a three-character alpha¬ 
numeric code (filename: 

"D: WITCHES. XXX) 

ROOMS 

XXX 

Allows you to retrieve the text filed 


under the given code by the WRITE 
function 
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4 GRAPHICS I:POSITION 4,12:POKE 709.0: 
POKE 710,0:? Jt6 J "PLEASE WAIT" : TRAP 200 
00 

10 DIM CT(20,18),AS(10) ,B$ 110},CS (10) , 
DS(10),ES(18), FS(10).GS C10),HS(18),JS( 
10),KS(18),YS(3) , AC(JL0),L(10),HP(10) 

15 DIM GP(10),SP(10),CP(10),PP(10),EP( 
10),HM(10) , DM(10) , RA(10),ST(10),WD(10, 
5) , C(10) ,T(3) ,AZ$(15) , SB (10) 

16 DIM ACA(IO),W(10),ALS(2),MON(40) 

20 DIM CMDS(125),IN(10),WI(10),DX(10), 
CN(18),CH(10),N$(2) . T$(5), RS(5) .AAS(2) 
,BBS(2),CCS(2),DD$(2),EES(2),FFS(2) 

22 DIM GGS(2),HHS(2),JJ$(2),KKS(2),HUM 

5 (5) , AMS (2) ,CI.S (15) ,RAS (10) ,GES(7) ,GE( 
10),HE(10,2),WE(10),ATT(10),ATT1 (10) 

23 AMS="AM" : T (1) =0 : T (2) =0 : AZ$="D : ■' 

24 DIM GAS(12),GBS(12),GCS(12),GDS(12) 

,GLS(12),GFS(12),GHS(12),GIS(12),GJS(1 
2) , GKS(12),MT(20,16) 

25 FOR E = 1 TO 18:F0R X=20 TO 1 STEP -1 
:READ N:CT(X,E)=N:NEXT X:NEXT E:AC1=AC 
+ 9 

26 FOR E=1 TO 16:F0R X = 20 TO 1 STEP -1 
:READ N:MT(X,E)=N:NEXT X:NEXT E 

30 DATA 10,11,12,13,14,15,16,17,18,19, 
20,20,20,20,20,20,21,22,23,24,10,11,12 
,13,14,15,16,17,18,19,20,20,20,20,20 
35 DATA 20,21,22,23,24,8,9,10,11,12,13 
,14,15,16,17,18,19,28,20,20,20,20,20,2 
1,22,8,9,10,11,12,13,14,15,16,17,18 
40 DATA 19,20,20,20,20,20,20,21,22,6,7 
,8,9,10,11,12,13,14,15,16,17,18,19,20, 
20,20,20,20,20,6,7,8,9,10,11,12,13,14 
45 DATA 15,16,17,18,19,20,28,20,20,20, 

20.4.5.6.7.8.9.10.11.12.13.14.15.16.17 
,18,19,20,20,20,20,4,5,6,7,8,9,10,11 
50 DATA 12,13,14,15,16,17,18,19,20,20, 

20.20.2.3.4.5.6.7.8.9.10.11.12.13.14.1 
5.16,17,18,18,20,20,2,3,4,5,6,7,8,9 

55 DATA 10,11,12,13,14,15,16,17,18,19, 

20,20,0,1,2,3,4,5,6,7,8,9,18,11,12,13, 

14,15,16,17,18,19,0,1,2,3,4,5,6,7,8 

60 DATA 9,10,11,12,13,14,15,16,17,18,1 

9,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,1 

3,14,15,16,17,-2,-1,0,1,2,3,4,5,6,7 

65 DATA 8,9,10,11,12,13,14,15,16,17,-4 
,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,15,-4,-3,-2,-1,0,1,2,3,4,5,6,7 

66 DATA 8,9,10,11,12,13,14,15,-6,-5,-4 
,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,18,11,12 
,13,-6,-5,-4,-3,-2,~1,0,1,2,3,4,5,6 

67 DATA 7,8,9,10,11,12,13,10,11,12,13, 
14,15,16,17,18,19,20,20,28,20,20,20,21 
,22,23,24,9,10,11,12,13,14,15,16,17 

68 DATA 18,19,20,20,20,28,20,20,21,22, 

23.8.9.10.11.12.13.14.15.16.17.18.19.2 
0,20,20.20,20,20,21,22,7,8,9,10,11,12 

69 DATA 13,14.15,16,17,18,19,20,28,20, 
20,20,20,21,6,7,8,9,10,11,12,13,14,15, 

16.17.18.19.20.20.20.20.20.20 

70 DATA 5,6,7,8,9,10,11,12,13,14,15,16 
,17,18,19,20,20,20,20.20,3,4,5,6,7,8,9 
,16,11,12,13.14,15,16,17,18,19,20,20 

71 DATA 20,3,4,5,6,7,8,9,10,11,12,13,1 
4,15,16,17,18,19,20,20,20,3,4,5,6,7,8, 

9.10.11.12.13.14.15.16.17.18.19.20.20 

72 DATA 20,2,3,4,5.6,7,8,9,18,11,12,13 
,14,15,16,17,18,19,20,20,0,1,2,3,4,5,6 
,7,8,9,10,11,12,13,14,15,16,17,18,19 

73 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,1 
3,14,15,16,17,18,19,-1,0.1,2,3,4.5,6,7 
,8,9,10,11,12,13,14,15,16,17,18 

74 DATA -1,0,1,2,3,4,5,6,7,8,9,10,11,1 
2,13,14,15,16,17,18,-2,-1,0,1,2,3,4,5, 

6.7.8.9.10.11.12.13.14.15.16.17 

75 DATA -3,-2,-1.0,1,2,3,4,5,6,7,8,9,1 
0,11,12,13,14,15,16 

88 Al=l:A0=A1~A1:A2=A1+A1:A3=A2+A1:A4= 
A3+A1:A5-A3+A2:A6=A5+A1:A7=A5+A2:A8=A4 
+A4:A9=A5+A4:A18=A5+A5:A11=A6+A5 

85 A12=A2*A6:A13-A6+A7:A14=A2*A7:A15=A 
3*A5: A16=A2*A8;A17=A9+A8:A18=A3*A6:A19 
=A10+A9:A20-A10*A2:GRAPHICS O 

86 POKE 82,2 

89 TRAP 89:POKE 712,128:P0KF 710,128:P 
OKE 752, Al:? "6" : POSITION 11.12.: 7 "fHO 
W MANY PLAYERS"; -.INPUT NUM:NUM=NUM-A1 


95 IF NUM>=AO THEN IF NUM<A10 THEM 900 
O 

98 GOTO 89 

108 CMDS=STRS(P):CMDS(1,1)=CHRS(ASC(CM 
DS(1,1))+128) 

105 RETURN 

110 IF J = 34 THEN 6200 
112 RETURN 

150 ? "K":FOR P = A0 TO NUM:? .-POKE 710, 
50:POKE 709,68:POKE 712,50:GOSUB 180 

151 IF HP(P)< =A0 THEN IF HP(P)>-A10 TH 

EN ? " Idt-ViaCM " : CMDS : *' IS UNCONSCIOUS": 
? :GOTO 310 _ 

152 IF HP (P) <~A9 THEN ? " BgjHU " i CMDS 
HAS BEEN KILLED.":? :GOTO 310 

153 ? ,," 31 = PASS":? ,," 32 = 

RETURN":? ,," 33 = SPELL":? 

34 = MONSTER" 

154 IF W(P)=5 THEN FOR CMD = 1 TO SB(P) 

155 TRAP 20000:? "GnEEGCB";CMDS;"■S OP 
PONENT";:INPUT J:TRAP 40000:0=A0:IF J = 
31 THEN 310 

156 G05UB 110:IF J = 32 THEN 9000 

157 IF J=33 THEN ? "HOW MANY HP DAMAGE 
"; : INPUT X:? "AGAINST WHICH MONSTER";: 
INPUT E:MON(E+4)=M0N(E+4)~X:GOTO 159 

158 GOTO 161 

159 ? "TO REPEAT ETJJ11 . PRESS 'S'": 
J=E : OPEN ttl, 4,0, "K :": GET ttl,X:CLOSE 111 
:IF X=83 THEN ? :J=33:G0T0 157 

160 GOTO 310 

161 AC-MON(3):IF AC<=A10 THEN IF AC>=- 
09 THEN 0=A5 

162 IF J<0 OR J>M0N(1)-1 THEN ? "0 - " 
;MON(1)-1:". TRY AGAIN.":? :GOTO 154 

164 IF 0 < > A5 THEN ? "BTRY AGAIN.":? :F 
OR I=A1 TO 508:NEXT I:? "5":GOTO 154 

165 IF W(P)=A0 THEN ? "PLAYER ";P;" DO 
ESN'T HAUE A WEAPON READY”:? "WEAPON"; 
:INPUT W:IF W<AO OR W>A5 THEN 165 

166 IF W(P)=0 THEN W(P)=W:GOTO 310 
206 IF C(P)=A1 OR C(P)=A2 OR C(P)=A3 T 
HEN AC1 = AC + 10:H=CT (AC1,L (P)) :GOTO 308 
285 IF C(P)=A7 OR C(P)-A8 THEN 219 
206 IF C(P)=A9 OR C(P)=A18 THEN 229 

210 IF L(P)=A3 OR L(P)=A4 OR L(P)=A5 T 
HEN D=-l 

211 IF L(P)=A6 OR L (P)-A7 OR L(P)=A8 T 
HEN Dr-A2 

212 IF L(P)=A9 OR L(P)=A10 OR L(P)=11 
THEN D=-A3 

213 IF L(P)=12 OR L (P)-13 OR L(P)=14 T 
HEN D--A4 

214 IF L(P)=15 OR L (P)-16 OR L(P)=17 T 
HEN D= A5 

215 IF L(P)=18 THEN D=-A6 

216 AC1=AC+10:D1=L(P)+D:H=CT(AC1,D1):G 
OTO 300 

219 IF L (P)<A3 THEN D = A0 

220 IF L(P)=A3 OR L(P)=A4 OR L(P)=A5 0 


R L(P)-A6 THEN D=-A2 

221 IF L(P)=A7 OR L(P)=A8 OR L(P)=A9 0 
R L(P)=A10 THEN D=-A4 

222 IF L(P)=11 OR L(P)-12 OR L(P)=13 0 
R L(P)=14 THEN D=-A6 

223 IF L(P)=15 OR L(P)=16 OR L(P)=1? 0 
R L(P)=18 THEN D=-A8 

224 D1 = L(P)+D:AC1=AC+A10:H=CT(AC1,D1) : 
FOR E=A1 TO A8:IF D1=E THEN H=K+A1 

225 NEXT E:GOT0 300 

229 IF L (P)<A3 THEN D = AO 

230 IF L(P)=A3 THEN D=-A1 

231 IF L(P)=A4 OR L (P)-A5 OR L(P)=A6 0 
R L(P)=A7 THEN D=-A3 

232 IF L(P)-A8 OR L(P)=A9 THEN D=-A4 

233 IF L(P)=A10 OR L(P)=11 OR L(P)=12 
THEN D=-A6 

234 IF L(P)=13 OR L(P)=14 THEN D=-A8 

235 IF L(P)=15 OR L(P)=16 OR LCP)=17 T 
HEN D=-A9 

236 IF L(P)=18 THEN D=-A10 

237 D1=L(P)+D:AC1=AC+A10:H=CT(AC1,D1): 
FOR E=Al TO A10:IF D1=E THEN H=H+A1 

238 NEXT E:FOR E=16 TO 18:IF D1=E THEN 


H=H+A1 
239 NEXT E 
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3flO SWING=INT (20*RND(Al) + A1) +HM(PJ :IF 
WCP)=5 THEN 5WING=SWING-HM(P):SWING=SW 
ING+RA CP) 

301 ? "H=";H:? "SWING=";SWING 

302 IF SUING)=H THEN DAM=INT (WD(P,W(P) 
)*RND(Al)+A1)+DMCP):IF W(P)=5 THEN DAM 
-DAM-DMCP) 

305 IF SWING)=H THEN ? "A HIT*":? "DAM 
AGE=";DAM;" HIT POINTS" 

306 IF SWING)=H THEN MONCJ+4)=MONCJ+4) 
-DAM:IF MON CJ + 43 <—O THEN ? "YOU'UE KIL 
LED IT!!" 

307 IF WCP3-5 THEN NEXT CMD 

308 IF ATT1CP3-0 THEN 550 

309 IF ATT1(P3)0 THEN 500 

310 NEXT P:T CA23-T C A23 + A.1 

312 ? :? "PRESS ANY KEY TO C0NTINUE":0 
PEN ttl, 4,0, "K : " :GET #1,E:CLOSE ttl:IF E 
>=0 THEN 6200 

580 IF ATT CP3-2 THEN ATT1CP3=0 : GOTO 15 
1 

503 IF ATT1(P3 -2 THEN ATT1CP3-O:GOTO 1 
51 

505 IF ATT1(P3=3 THEN ATT1CP3=2:GOTO 3 
10 

550 ATT1CP3=ATTCP3:GOTO 310 

1000 ON P+Al GOTO 1085,1010,1815,1020, 

1025,1030,1035,1040,1045,1050 

1O05 INPUT GAS:RETURN 

1010 INPUT G8S:RETURN 

1015 INPUT GCS:RETURN 

1020 INPUT GDS:RETURN 

1025 INPUT GLS : RETURN 

1030 INPUT GF$:RETURN 

1035 INPUT GH$:RETURN 

1040 INPUT GI$:RETURN 

1045 INPUT GJS:RETURN 

1050 INPUT GKS:RETURN 

2000 ON P+1 GOTO 2085,2010,2015,2020,2 
025,2830,2035,2040,2045,2050 


2005 

2010 

2015 

2020 

2825 

2030 

2035 

2040 

2045 

2850 

3O0O 


"tm "JGA$:RETURN 

"tm "; GB$ : RETURN 

":GCS:RETURN 
";GD$:RETURN 
"t)>> ";GLS:RETURN 

"t)>) ";GFS:RETURN 

"+►)► ";GHS:RETURN 

"tm "; GI$ : RETURN 

"tm ";GJS:RETURN 

"; GKS:RETURN 

"6" : POSITION 8,11:? "Q ll»U 
POSITION 8,12:? " ARE YOU SUR 
E?":OPEN ttl,4,8,"K:":GET ttl,J:CLOSE ttl 
3001 IF J = 89 THEN TRAP 3004:G0T0 3004 
3082 IF J-78 THEN 9000 

3003 GOTO 3000 

3004 TS=CHRS(155):? "6":POSITION A8,ll 
:? "QWHAT IS THE NAME OF THE":P05ITI0N 

8,12:? "DATA FILE";:INPUT CMDS 

3005 TRAP 3004:AZS-"D:":AZ$(3,3+LEN(CM 
D$)>=CMDS 

3007 OPEN ttl,8,0,AZ$:FOR J=A1 TO 128:P 
UT ttl,0:NEXT J 

3010 FOR E = A0 TO NUM:PRINT »1;AC(E);TS 
jC^E);TS;HPCEI;TS;HM(E);TS;DMCE);TS;RA 

3012 PRINT ttl;ACACE);TS;SBCE);TS;LCE); 
TS ; ST (El; T$; IN (El ; T$; WI CE) ; TS; DX CE) 

3015 PRINT ttl;H(E):TS;GPCE):TS;SPCE) ;T 
$;CPCE);TS;PPCE);TS;EPCE);TS;CN(E) 

3016 PRINT ttl:CHCE);T$:ATTCE); TS ; WE (E) 
;TS;HECE,8);TS;HECE,1);TS;GECE):NEXT E 

3017 PRINT ttl:AAS;TS:BBS;TS;CC$;TS;DDS 
;TS;EES;TS;FF$;TS;GGS 

3018 PRINT ttl:HHS;T$;JJS;T$;KKS:TS:A$; 
TS;B$;TS;CS;TS;DS;T$;ES;TS;FS;tS;GS 

3020 PRINT ttl;HS;TS;J$;TS;KS;T$;Z;TS;M 
;TS;T Cl) 

3021 PRINT ttl;T(2):PRINT ttl;AMS;T$;Y 

3022 FOR J=A1 TO A5:FOR E=A8 TO NUM:PR 
INT ttl;MD(E,J):NEXT E:NEXT J 

3825 PRINT ttl;GAS;TS:GBS;T$:GC$;T$;GDS 
;TS|GL$;TS;GFS;tS;GHS;TS;GI5;TS;GJS;TS 

3830 CLOSE ttl:END 

3500 ? "6":POSITION 8,11:^ "Q Hil 

aaDEH":POSITION 8,12:? " ARE YOU SUR 
E?":OPEN ttl,4,0,"K:":GET ttl,J:CLOSE ttl 


3501 IF J=89 THEN 3505 

3502 IF J-78 THEN 9000 

3503 GOTO 3500 

3505 CLOSE tt3:TRAP 3O00O:? "N":POSITIO 
N A8,11:? "WHAT IS THE NAME OF THE":PO 
SITION A8,12:? "DATA FILE”;:INPUT CMDS 

3506 AZS="D:":AZSC3,3+LENCCMDS))=CMDS: 
XIO 3,tt3,4,0,AZS:FOR J = A1 TO 128:GET tt 
3 R;NEXT J 

3507 FOR E=A0 TO NUM:INPUT tt3,J:ACCE)= 
J:INPUT tt3,J:CCE)=J:INPUT tt3,J:HPCE)-J 
:INPUT tt3,J:HMCE)=J:INPUT tt3,J:DM(E)=J 

3508 INPUT tt3,J:RACE)=J:INPUT »3,J:ACA 
CE)=J:INPUT tt3,J:SBCE)-J:INPUT tt3,J:LC 
E)=J:INPUT tt3,J:ST(E)=J 

3509 INPUT tt3,J:INCE)=J:INPUT »3,J:WIC 
E)=J:INPUT tt3,J:DXCE)=J:INPUT tt3,J:WCE 
)=J:INPUT tt3,J:GP(E)-J 

3511 INPUT »3, J:5PCE)=J’.INPUT tt3,J:CPC 
E) ~J :INPUT »3,J:PPCE)-J:INPUT tt3,J:EPC 
E)=J:INPUT tt3,J:CN(E)-J 

3512 INPUT tt3,J:CHCE)-J:INPUT tt3,J:ATT 
CE)-J:INPUT tt3,J:WECE)-J:INPUT tt3,J:HE 
CE,O)=J:INPUT tt3,J:HE CE,1)-J 

3514 INPUT tt3,J:GECE)=J:NEXT E 


3516 INPUT tt3;AA$,BBS,CCS,DDS,EES,FFS, 

ggs.hhs,jjs,kkS,as,bs,cs,ds,e£,fs,gs,h 

S,JS,KS,Z,M,T:TC1)=T 


3517 INPUT tt3;K:TC2)=K:INPUT tt3;AMS,Y 
3520 FOR J=1 TO 5:F0R E=0 TO NUM:INPUT 
tt3;WD:WD(E,J)=WD:NEXT E:NEXT J 
3522 INPUT tt3;6AS,GBS,GCS,GDS,GLS,GFS, 

ghs,gis,gjs,gks 

3525 CLOSE tt3:FOR E=0 TO NUM:ATT1CE)=A 
TT CE) :NEXT E:GOTO 9000 
4O00 ? "NA PLAYER NUMBER"," L GENDER": 
? "B PLAYER NAME’V’M HEIGHT":? "C CLAS 
5'i.)| WEIGHT" 

4010 ?’"D ALIGNMENT",”0 LEVEL”:? "E ST 
RENGTH","P ARMOR CLASS":? "F INTELLIGE 
NCE","0 HIT MODIFIER” 

4020 ? "G WISDOM"," ","R DAM MODIFIER" 
:? "H DEXTERITY","S AC ADJUSTMENT":? " 
I CONSTITUTION","T R/A BONUS" 

4038 ? "J CHARISMA","U ATTACKS/ROUND": 
? "K RACE"," ”,"V WEAPON":? " ",,"W MO 
NTH" 


4035 ? ,,"X YEAR":? "4Y RETURN TO MENU 


4100 POSITION 3,17:? "HEADING?" :OPEN tt 
3,4,O,"K:":GET tt3,J:CLOSE tt3:IF J<65 0 
R J)89 THEN 4100 
4185 POSITION 22,18 

4106 ON J-64 GOTO 4110,4115,4120,4125, 
4130,4135,4140,4145,4150,4155,4168,416 
5,4170,4175,4180,4185,4190,4195,4200 

4107 ON J-83 GOTO 4205,4210,4215,4285, 
4290,4295 

4108 GOTO 4000 

4110 ? "tPLAYER NUMBER";:INPUT P 

4112 IF P <A0 OR P)A9 THEN ? "tO TO 9, 
PLEASE - TRY AGAIN":FOR E=A1 TO A50:NE 
XT E:? "t":? :GOTO 4110 

4113 IF P)NUM THEN NUM=P 

4114 GOTO 4060 

4115 ? "tPLAYER NAME";:ON P+Al GOSUB 6 
000,6005,6010,6015,6020,6025,6030,6035 
,6046,6045:GOTO 4000 

4120 ? "tCLASS"; IGOSIIB 5508.GOTO 4000 
4125 ? "tALIGNMENT";:INPUT ALS:GOSUB 5 
000 :GOTO 4006 

4130 ? "tSTRENGTH";:INPUT E : ST CP)=E:GO 
TO 4080 

4135 ? "tINTELLIGENCE";:INPUT E:INCP)= 
E:GOTO 4000 

4140 ? "tWISDOM";IINPUT E:WICP)=E:GOTO 
4000 

4145 ? "tDEXTERITY";.INPUT E:DXCP)=E:G 
OTO 400O 

4150 ? "tCONSTITUTION";IINPUT E:CNCP)= 
EiGOTO 4800 

4155 ? "tCHARISMA";IINPUT E:CHCP)=E:GO 
TO 4800 

4160 ? "tRACE";:GOSUB 1O00:GOTO 490O 
4165 ? "tGENDER";IINPUT GE$:IF GES="M” 
OR GES="MALE" THEN GECP)=1:GOTO 4008 
4167 IF GES="F" OR GES="FEMALE" THEN G 
E CP)=2:GOTO 4000 

4178 ? "tHEIGHT (FEET)";:INPUT JlHECP, 
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O) = J IPOSITION 29,15:? "t(INCHES!:INP 
UT J:HECP,l)=J:GOTO 400O 

4175 ? "tWEIGHT"; IINPUT JI WE CP)=JI GOTO 
4000 

4180 ? "tLEUEL";:INPUT E:LCP)=E:GOTO 4 
000 

4185 ? "tORMOR GLOSS"J:INPUT E:OCCP)=E 
:GOTO 40O0 

4190 ? "tHIT MODIFIER";IINPUT E:HMCP)= 
E:GOTO 4000 

4195 ? "tDOMOGE MODIFIER"j:INPUT ElDMC 

P) =E:G0T0 4000 

4200 ? "tOC ADJUSTMENT";IINPUT ElOCOCP 
)= EI GOTO 4000 

4205 ? "tR/0 BONUS";IINPUT E:ROCP)=E:G 
0T0 400O 

4210 ? "tOTTOCKS/TURN";IINPUT ElOTTCP) 
= E I GOTO 4OO0 

4215 ? "tWEOPON DOMOGE":? "4++WE0P0N It 
1";IINPUT E:WDCP,01)=El? "++WEOPON tt2" 
; IINPUT EIWD CP,02)= E 

4270 ? "++WEOPON tt3"; IINPUT E:WDCP,03) 
=E I " WEAPON »4"; IINPUT E:WDCP,04)=E 
4280 ? " WEAPON «5";IINPUT E:WDCP,05) 
-EI? "NUMBER OF HITS PER ROUND"; I INPUT 
EI SB CP)=EI GOTO 4000 
4285 ? "tMONTH";IINPUT MlGOTO 4000 
4290 ? "tYEOR"; I INPUT YlGOTO 4000 
4295 GOTO 9000 
5000 IF P = O0 THEN OOS=OLS 
5002 IF P = 01 THEN BBS=OLS 
50O4 IF P = 02 THEN CC$=OLS 
5806 IF P = 03 THEN DDS=OLS 
5008 IF P-04 THEN EE$=OL$ 

5010 IF P = 05 THEN FF$=OLS 
5012 IF P = 06 THEN GGS=OLS 
5014 IF P-07 THEN HHS=OLS 
5016 IF P = 08 THEN JJ$=OLS 
5018 IF P = 09 THEN KK$=OL$ 

5020 RETURN 

5500 INPUT CLSlIF CLS="FIGHTER" OR CL$ 
="F" THEN CCP)=01 

5505 IF CL$="RONGER" OR CL$="R" THEN C 
CP)=02 

5510 IF CL$="PALODIN" OR CLS="P" THEN 
C CP)=03 

5515 IF CL$="CLERIC" OR CL$="C" THEN C 
CP)=04 

5520 IF CL$="DRUID" OR CL$="D" THEN CC 
P) =05 

5525 IF CL $ = "MONK" OR CL$="M" THEN CCP 
) =06 

5530 IF CL S = "THIEF" OR CLS="T" THEN CC 
P) =07 

5540 IF CL$="OSSOSSIN" OR CL$=“0" THEN 
C CP)=08 

5545 IF CLS="MOGIC-USER" OR CL$="MU” 0 

R CL$="MOGIC USER" THEN CCP)=09 

5550 IF CLS="1LLUSI0NIST" OR CL$="I" T 

HEN CCP)=O10 

5555 RETURN 

6800 INPUT 0$I RETURN 

6005 INPUT B$:RETURN 

6010 TNPUT C$I RETURN 

6015 INPUT DSI RETURN 

6020 INPUT ESlRETIJRN 

6025 INPUT FSlRETURN 

6030 INPUT GSlRETURN 

6035 INPUT HSlRETURN 

6840 INPUT JSI RETURN 

6045 INPUT KSI RETURN 

6200 ? "6"I POSITION 12,12:? "MONSTER C 
OMBOT?":OPEN ttl,4,0,"K I":GET ttl,J:CLOS 
E 111: IF J = 78 THEN 9080 

6201 IF J=89 THEN 6210 
6203 GOTO 6200 

6210 FOR E = 0 TO MONCl)-lI? I IF MONCE+4 
) < = 0 THEN ? " lttijKfcfcUl T" IE I ** HAS BEEN KIL 
LED":? I? IGOTO 6900 

6212 FOR X = 1 TO M0NC35):? "GEEHH3 ";E 
;"'S OPPONENT"I OPEN tt3,4,0 , "K I " I GET tt3 
, J I CI.OSE tt3 I IF J = 86 THEN 6900 
6215 IF J=82 THEN 9000 
6218 IF J<48 OR J>57 THEN 6212 
6220 IF UAL CCHRS C J) ) >NIJM THEN 6212 
6225 P=UOL CCHR$ CJ)) ISWING = INT C20*RND CO 

l)+fli) :H = MT COCCP)+10,MON C2) ) 


6227 IF SWING)=H THEN ? "0 HIT!!":DOM= 
INT CMON C36)*RND C01)+01) I? "DOMOGE = "; 
DOM;" HP":? I? 

6230 IF SWING<H THEN ? "0 MISS!":? :? 
IGOTO 6895 

6235 HPCP)=HPCP)-DOM.DOM=0 
6895 NEXT X 

6960 NEXT E:? :? "PRESS ANY KEY TO CON 
TINUE"I OPEN »1,4,0,"KI":GET ltl,E:CLOSE 
ttlllF E> =0 THEN 9000 
6905 TRAP 300061? "IS" I POSITION 2,12:? 
"WHAT IS THE ROOM NUMBER";:INPUT CMD$ 
6910 CLOSE ttl : OZS = "D : COMBOT .":OZ$C10,1 
0+LENCCMDS) )=CMD$ IXIO 3, Itl, 4 , O, OZS 
6915 FOR E = 1 TO 40:INPUT ttl,JI MONCE)=J 
I NEXT E: CLOSE ttl'.GOTO 9000 
7000 F = INTC1O0*RNDC01))+01 IE=INTC30*RN 
D C01))+01 

7082 ON M GOTO 7003,7003,7004,7004,780 
4,7005,7005,7005,7005,7004,7004,7003 

7003 X = INTC25*RNDC01D :GOTO 7008 

7004 X = INT C25*RND COD+25) :GOTO 7008 

7005 X=INTC33KRHDCOD+60):GOTO 7008 

7008 DL=PEEKC560)+256*PEEKC561)IB=PEEK 
CDL+04):C=PEEKCDL+05)IPOKE 559,O0:POKE 

DL+04,BIPOKE DL+05,C:P0KE DL+03,66 

7009 POKE DL+06,06:P0KE DL+07,06:POKE 
DL+13,06:POKE DL+14,06:POKE DL+15,06:P 
OKE DL+16,06lP0KE DL+29,65 

7010 POKE DL+ 30,PEEKC560) I POKE DL + 31,P 
EEK C561) :POKE 559,34:P0KE 710,128:POKE 

712,128:? "IS4 DUNGEON STATUS":? 

7011 IF D=A3 THEN D=O0:GOTO 7015 

7012 IF X<30 THEN IF F< = 60 THEN IF 0> = 

100 THEN ? "tWEOTHER: SNOW ":D=D 

+ 1 I GOTO 7025 

7013 IF X> =30 THEN IF X<=34 THEN IF F< 

=60 THEN IF O>=100 THEN ? "tWEOTHERI 
SLEET ”ID = D + 1I GOTO 7025 

7014 IF F < = 60 THEN IF O>=100 THEN ? "t 

WEATHER*. RAIN ": D = D + 1 IGOTO 7025 

7815 IF F>30 THEN ? "WEATHER: FAIR": 

D = 0: 0=0'.GOTO 7025 

7020 IF F <=30 THEN ? "WEATHER I CLOUDY" 
:LET 0=0+106 

7025 ? "WIND: ";E;"MPH" 

7046 ? "TEMPERATURE I ";X 
7050 ? "44 DUNGEON TIME" 

7053 ? "4YE0R : ";Y:? "MONTH: ";M:? "D 
AY : ";Z:? :? "TIME : ";TC01);":";TCO 

2) ;" ";0M5 

7100 J = O0:OPEN ttl,4,0,"K:":GET ttl, J I CL 
OSE ttl I IF CHR$CJ)="R" THEN 9OO0 
7105 IF J=49 THEN 7115 

7112 IF J=50 THEN T COD =T COD+011 GOTO 
7120 

7113 IF J=51 THEN Z=Z+01IGOTO 7128 

7114 GOTO 7108 

7115 T C02)=TCO2)+VOL CCHRS CJ))*010 
7120 IF T C02)> =60 THEN TC02)=TC02)-60: 
T CAD =T COD +01 

7125 IF T COD =11 THEN TCA3)=03 
7130 IF T COD =12 THEN IF TC03)=03 THEN 
IF OM$ = "OM" THEN OM$ = "PM":TC03)=08 I GO 
TO 7145 

7135 IF T COD =012 THEN IF TC03)=03 THE 
N IF OM$="PM" THEN 0M$="0M":Z=Z+fll:TCO 

3) =00 

7145 IF T C01)=13 THEN TC01)=01 
7150 IF Z=31 THEN Z=01IM=M+01 
7155 IF M=13 THEN M=01:Y=Y+01 
7175 GOTO 7908 

7500 OZ$="D:WITCHES.":? "KROOM NUMBER" 
; IINPUT CMDS iOZ5C11,11+LEN CCMD$))=CMD$ 
IPOKE 710,200 I POKE 789,194:P0KE 712,0 
7505 TRAP 38000 : CLOSE ttllOPEN ttl,4,0,0 
Z$;? "IS" 

7510 TRAP 7608 
7520 INPUT ttl, CMDS 
7530 ? CMDS 

7535 IF PEEK C84)=23 THEN POSITION 1,23 

,•■? ■'U;n j a 

I^TUY t"I GOTO 7538 

7536 GOTO 7540 

7538 OPEN tt4,4,0,"Kl":GET tt4,J:CL0SE tt 
41 IF J>=0 THEN ? "IS" 

7540 GOTO 7528 
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7600 CLOSE ttl: OPEN tt2,4,0 , "K : " : GET tt2, 
J: CLOSE tt2:IF J>=0 THEN 9000 
8050 DL=PEEKC568)+256KPEEK(561):B=PEEK 
CDL+4):C=PEEKCDL+5):POKE 559,0:POKE DL 
+ 4,0:POKE DL + 5,C:POKE DL+3,66 
8055 POKE DL + 12,7:POKE DL+13,7:P0KE DL 
+ 14 ,7:POKE DL + 15,7 : POKE DL+23,65:POKE 
DL+24,PEEKC560) :POKE DL + 25,PEEK (561J 
8060 POKE 559,34:POKE 87,0:POKE 710,19 
2:POKE 712,192 

8065 TRAP 9000:? "H";POSITION 2,8:? "R 
ANDOM NUMBER";:INPUT RN 
8070 ? "IS":POSITION 2,8:E-INTCRNKRNDC0 
)+l):? "NUMBER = ";E 

8075 FOR E=1 TO 150:NEXT E:GOTO 8065 
8500 POKE 710,200:POKE 709,192:POKE 71 
2,0 

8520 AZ$="D:HITCHES.":? "IS":? "WHAT IS 
THE ROOM NUMBER";:INPUT CMDS 
8530 AZ$Cli,ll+LENCCMD$) )=CMD$:OPEN Itl 
,8,0,AZ$ 

8540 ? "IS” 

8550 INPUT CMOS 

8560 IF CMD$="*" THEN 8590 

8570 ? Itl; CMOS 

8580 GOTO 8550 

8590 CLOSE ttl: GOTO 9000 

9000 TRAP 20O00:GRAPHICS 0:POKE 712,12 
8:P0KE 710,128:POKE 709,140:POKE 752,1 

9001 ? "IS":POSITION 0,5:? "IlM = MELEE 
";? "Itt = CHARACTER SHEET":? "IS = DUN 
GEON STATUS":? " IE = ENTER ROOM" 

9002 ? "ID = DICE":? "IF - FILE DATA": 
? "IG = GET DATA":? "II = INITIALIZATI 
ON":? "IL = LOAD ROOM" 

9003 ? "IZ = ROOMS":? "IH = WRITE" 

9004 ? "I++COMMAND?"; 

9007 CLOSE ttl: TRAP 20000:OPEN ttl,4,0," 
K : " : GET ttl, CMD : CLOSE ttl: IF CMD=69 THEN 

6905 

9008 IF CMD=83 THEN 7000 

9009 IF CMD=68 THEN 8050 

9010 IF CMD=71 THEN 3500 

9012 IF CMD-77 THEN 150 

9013 IF CMD=73 THEN 4000 

9014 IF CMD-70 THEN 3008 

9015 IF CMD=76 THEN 15000 

9016 IF CMD=90 THEN 7500 

9017 IF CMD=87 THEN 8500 

9818 IF CMD<48 OR CMD>57 THEN 9008 
9019 P=VALCCHR$CCMD)):GOSUB 100 


9505 POKE 712,P*16+10 :POKE 7 10,P*16+18 
: POKE 709,P*16:? J CMDS;" 

II > 

9586 ON P+1 GOTO 9600,9601,9602,9603,9 

604,9605,9606,9607,9688,9689 

9510 ON CCP) GOTO 9610,9611,9612,9613, 

9614,9615,9616,9617,9618,9619 


9511 ON P+1 GOTO 9808,9802,9804,9806,9 
808,9810.9812,9814,9816,9818 

9512 ? "+ARMOR CLASS ";ACCP):? " 

till 1ST ";STCP) 


9514 ? "HIT POINTS ";HPCP):? "+ 

IIIIIN ";IN CP) 


9516 ? "HIT MODIFIER ";HMCPJ:? "+ 

IIIIWI ";HICPJ 


9518 ? "DAMAGE MODIFIER ";DMCP):? "t 
III IDX ";DKCP) 


9520 ? "R/A BONUS ";RACP):? "t 

III ICN ";CN CP) 


9522 ? "AC ADJUSTMENT ";ACACP):? ” 

tllllCH ";CHtP) 


9524 ? "MISSILE MULTIPLE ";SBCP) 

9526 ? "LEVEL ";LCP):? "t I 

II HT ";HECP,0);.;" ";HE CP,1);CHR 

S C34) 


9528 ? "WEAPON READY ";H(P):? "tI 

II WT ";WE CP);" LBS" 

9530 ? "4G0LD ”;GPCP) 

9533 ? "SILVER ";SPCP):IF G 

E CP)-1 THEN ? "till MALE":GOTO 9535 

9534 IF GE CP)= 2 THEN ? “till FEMALE 

II 


9535 ? "COPPER ";CP CP) :GOSU 

B 20O0 

9537 ? "PLATINUM ";PPCP) 

9540 ? "ELECTRUM ";EPCP) 


9599 GOTO 9700 

9600 ? AS:GOTO 9510 

9601 ? BS:GOTO 9510 

9602 ? CS:GOTO 9510 

9603 ? DSlGOTO 9510 

9604 ? ES:GOTO 9510 

9605 ? FS:GOTO 9510 

9606 ? GS:GOTO 9510 
9687 ? HSlGOTO 9510 

9608 ? J$:GOTO 9510 

9609 ? KS:GOTO 9510 

9610 ? "l!ltFIGHTER":GOTO 9511 

9611 ? " llltRANGER":GOTO 9511 

9612 ? "llltPALADIN":GOTO 9511 

9613 ? "llltCLERIC":GOTO 9511 

9614 ? "llltDRUID":GOTO 9511 

9615 ? "II ItMONK":GOTO 9511 

9616 ? "ll!tTHIEF":GOTO 9511 

9617 ? "llltASSASSIN":GOTO 9511 

9618 ? "IIltMAGIC - USER":GOTO 9511 

9619 ? "llltlLLUSIONIST":GOTO 9511 
9780 POSITION 3,22:? "COMMAND?";:OPEN 
ttl, 4,0, "K : " : GET ttl, K : CLOSE ttl 

9702 IF X = 77 THEN ISO 

9704 IF X = 82 THEN 9000 

9705 IF X = 71 THEN 10080 

9706 IF X=83 THEN 10010 

9707 IF X=67 THEN 10028 
9788 IF X = 88 THEN 10030 

9709 IF X = 69 THEN 10040 

9710 IF X=72 THEN 10850 

9711 IF X = 87 THEN 10860 

9712 IF X-90 THEN 7500 

9715 IF X<48 OR X>57 THEN 9780 

9730 P-VALCCHRSCX)):GOSUB 100:GOTO 950 

5 

9880 POSITION 36,2:? AASlGOTO 9512 
9802 POSITION 36,2:? BBSlGOTO 9512 
9804 POSITION 36,2:? CCSlGOTO 9512 
9806 POSITION 36,2:? DDSlGOTO 9512 
9808 POSITION 36,2:? EESlGOTO 9512 
9810 POSITION 36,2:? FFS:GOTO 9512 
9812 POSITION 36,2:? GGS:GOTO 9512 
9814 POSITION 36,2:? HHSlGOTO 9512 
9816 POSITION 36,2:? JJSlGOTO 9512 
9818 POSITION 36,2.? KKSlGOTO 9512 
10000 ? " GOLD PIECES";:INPUT J:GPCP) 
=J:GOTO 9585 

18010 ? " SILVER PIECES";:INPUT J:SPC 
P)=J:GOTO 9505 

10028 ? " COPPER PIECES";IINPUT J:CPC 
P)=J:GOTO 9505 

10830 ? " PLATINUM PIECES";: INPUT J:P 
P CP)=J:GOTO 9505 

10040 ? " ELECTRUM PIECES";:INPUT J:E 
PCP)=J:GOTO 9505 

10050 ? " HIT POINTS";:INPUT J:HPCP)= 
JlGOTO 9505 


1O060 ? " 
<1 OR J>5 


WHICH WEAPON"; :INPUT J : IF J 
THEN POSITION 11,22:? " 


":POSITION 11,22:GOTO 18068 
10065 WCP)=J;GOTO 9505 


15800 TRAP 3O0O0:FOR Jrl TO 40:MON(J)= 
0:NEXT J:? "N":? "WHAT IS THE ROOM HUM 


BER";:INPUT CMDS 

15005 AZS="D:COMBAT.":AZSC18,10+LENCCM 

dS))~cmds 


15010 ? "HOW MANY MONSTERS";:INPUT J:I 
F J>30 THEN ? "NO MORE THAN 30 MONSTER 

s»:? :goto 15010 

15015 M0NC1)=J:? "MONSTER HIT DICE";:I 
NPUT J:M0NC2)=J 


15820 ? "MONSTER ARMOR CLASS" 
:MON C3)-J:FOR E = 0 TO M0NC1)~1 


,' : INPUT J 
:? "MONST 


ER ";E;"*5 HIT POINTS"; :INPUT J 
15030 MON CE + 4)-J:NEXT E:? "NUMBER OF A 


TTACKS";:INPUT J:MONC35)=J:? "DAMAGE P 
ER ATTACK"; :INPUT J:M0NC36)=J 


15048 OPEN ttl ,8,0,AZS:FOR E=1 TO 40:’ 
ttl; MONCE):NEXT E:CLOSE ttl:GOTO 9880 


28000 ERLN=PEEKC186)+256*PEEKC187):FOR 
E=1 TO 10:? "t INPUT ERROR — TR 


Y AGAIN ":SOUND 0,30,18,10 

200O1 FOR 1=1 TO 2 


28O03 NEXT I:? 

HI I ■ I I I I — 

1=1 TO 2:NEXT I 


in— 11 i'm 1111 ■ n 

":50UND 0,10,10,10:FOR 


: NEXT E : SOUND 8,0,0,0 
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28004 ? "t 

(f 

2O005 TRAP 20000: GOTO ERLN 
30O00 IF PEEK(1955=170 THEN ? "«":P0SI 
TION 2,5:? "THERE'S NO SUCH FILE ON TH 
IS DISK! !" 

30003 ? :? "THE FILES ORE:":? 

3O005 TRAP 30055: CLOSE ltl:OPEN 81,6,0, 
"D 

30010 INPUT ttljCMDS 

30015 PRINT CMD$:GOTO 30O1O 

30055 CLOSE 81:ERLN=PEEK(186)+256*PEEK 

(187):FOR E=1 TO 200INEXT E:TRAP 20O80 

:GOTO 3000 




CHECKSUM DATA 
(See pgs. 7-10) 


4 DATA 621,406,367,383,822,218,174,155 

,820,805,162,285,155,288,137,6378 

55 DATA 43,105,132,71,386,237,476,477, 

321,471,683,638,873,133,308,6146 

86 DATA 660,436,27,666,304,586,644,586 

,324,660,622,446,673,761,51,8712 

157 DATA 686,725,351,708,148,636,434,3 

14,525,133,283,188,822,713,835,8233 

213 DATA 601,623,235,534,35,143,112,13 

,54,880,828,38,303,164,473,5228 

233 DATA 783,412,642,126,63,753,740,37 

7,741,773,327,336,648,233,236,3008 

310 DATA 380,863,7,104,112,634,235,155 

,148,166,153,173,158,172,165,3625 

1045 DATA 177,170,306,646,640,653,647, 

681,654.670,664,677,671,571,736,3223 

3002 DATA 875,712,834,438,547,553,723, 

238,454,2,653,633,451,435,573,8301 

3030 DATA 340,271,385,838,732,607,162, 

237,633,230,540,43,833,651,885,8151 

3520 DATA 371,107,713,361.460,227,384, 

18,830,687,817,135,730,163,621,7236 

4113 DATA 203,723,705,762,542,855,515, 

676,146,643,710,238,173,460,483,7300 

4175 DATA 666,43,203,423,808,545,343,4 

42,527,323,178,545,203,751,327,6333 

5802 DATA 337,347.357,367,358,368.378, 

333,403,783,838,228,523,175,233,6i60 

5525 DATA 122,236,680,725,333,817,318, 

323,321,332,324,335,327,338,331,11388 

6045 DATA 342,602,830,735,443,465,831, 

630,410,32,341,730,173,582,42,8634 

6305 DATA 633,530,343,575,741,883,180, 

186,537,518,567,337,524,105,846,8303 

7015 DATA 302,133,37,213,155,370,42,83 

4,371,505,733,866,73,605,781,7238 

7135 DATA 687,603,622,637,770,864,570, 

711,365,316,487,763,321,754,745,3821 

8050 DATA 758,638,348,126,322,605,806, 

243,530,402,105,328,534,763,838,8132 

3000 DATA 211,348,827,334,563,481,364, 

333,347,764,350,342,221,364,386,11161 

3018 DATA 473,180,832,187,581,222,558, 

578,747,338,406,453,362,565,475,7555 

3530 DATA 484,110,318,738,784,676,785, 

602,607,612,617,622,627,632,637,3431 

3608 DATA 645,650,141,836,80,313,125,7 

11,117,618,562,143,377,663,323,7570 

3705 DATA 733,748,750,753,760.741,753, 

332,703,378,571,580,583,538,607,10808 

3810 DATA 537,606,615,623,638,217,863, 

857,301,888,438,835,33,413,573,3241 

15018 DATA 301,323,530,474,58,270,262, 

136,661,376,576,687,232,728,607,7541 

38055 DATA 531,531 



Pretty Demo 


10 

DEG 


28 

GRAPHICS 24 


38 

COLOR 1 


40 

SETCOLOR 2,0,0 


50 

FOR 1=1 TO 360 STEP 5 


60 

X=313*I/360 


70 

Y=80+80*SIN(I) 


80 

IF I>270 THEN 100 


30 

PLOT 0,0 


108 

DRAMT0 X,Y 


lie 

IF I<30 THEN 130 


128 

DRAMTO 313,153 


130 

NEXT I 


140 

IF PEEK (764) 0255 THEN 

END 

150 

GOTO 140 



CHECKSUM DATA 



(See pgs. 7-10) 


10 

DATA 217,4,724,287,58,750,133,433,4 1 

56, 

367,434,363,737,152,710, 

6485 
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THUNDER ISLAND 


32K Cassette or Disk 


by Craig Patchett 


One of the interesting features of the ATARI 
home computer is the priority register. This reserved 
memory location works together with the ATARI’S 
player-missile graphics system to allow screen 
objects to pass behind or in front of other objects, 
an effect that can give the illusion of depth. 

The priority register is called, appropriately, 
PRIOR and is found at memory location 623 ($26F 
hex). The following chart shows the effect of 
POKEing various values into it. Note that a high 
priority object will appear to move in front of an 
object with lower priority. 


PRIOR= 


8 4 2 1 


PFO 

PFO 

PO 

PO 

PF1 

PF1 

PI 

PI 

PO 

PF2 

PFO 

P2 

PI 

PF3 or P4 

PF1 

P3 

P2 

PO 

PF2 

PFO 

P3 

PI 

PF3 or P4 

PF1 

Pf2 

P2 

P2 

PF2 

PF3 or P4 

P3 

P3 

PF3 or P4 

BAK 

BAK 

BAK 

BAK 


Pn refers to player n 

PFn refers to play field n (as in SETCOLOR n) 
PF3 or P4 refers to the fact that all missiles can be 
given the color of playfield 3 and used as an extra 
player (player 4). This is done by adding 16 to the 
value being POKEd into PRIOR. 

When two players overlap, you can also choose to 
have a third color in the overlap region. This is done 
by adding 32 (decimal) to the value being POKEd 
into PRIOR. 


Thunder Island uses the priority register to 
control which section of the maze immediately sur¬ 
rounding you can be seen at a given time. If you 
draw a maze in playfield one and set the color of play- 
field one to that of the background, under normal 
circumstances we won’t be able to see the maze. But, 
by setting PRIOR to 2, we can have players two and 
three appear between the background and playfield 
one, thereby making the section of the maze "in 
front” of either player visible. That’s all there is to it. 

Playing the Game. 

Thunder Island is located in the middle of the 
Pacific, about a thousand miles north of New 
Zealand. An internationally renowned playboy 
resort, its main attraction is a huge transparent maze. 
This maze can be set up to any one of an almost 
infinite number of floor plans, so that it is impossible 
to memorize the layout. 

Because it is transparent, the maze is normally easy 
to solve. The island, however, is subject to frequent 
thunderstorms, and the power generator that lights 
the maze is often knocked out. As a precaution to 
this, those entering the maze carry lanterns, allowing 
them to at least see that part of it immediately 
surrounding them. It is the challenge of navigating 
the darkened maze, however, that has drawn you to 
Thunder Island. A different maze will be generated 
each time you play. Good Luck! 

Options 

Use the chart below to pick the type of game you 
want to play. A one-player game is good for 
practicing, but you’ll find the two player games to be 
more fun. You can choose to play a daylight game, in 
which the whole maze is always visible, or a night¬ 
time one, in which only part of it is visible. You can 
also choose from three maze difficulty levels, and 
each player can choose from three lantern sizes 
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(allowing better players to take a handicap). Once 
you’ve selected the game you want, press START 
and the computer will begin generating the maze. 
Once it’s finished, your lantern(s) will light up and 
the game will start. 

Using your joystick, you must maneuver your 
player to the corner of the maze diagonally opposite 
to the one you started at, and exit the maze. There is a 
timer at the bottom of the screen that keeps track of 
how long you’ve been in the maze, so you can 
compete for the fastest time. As soon as someone 
escapes, the storm will end and the maze will start 
reflecting a rainbow. Press START to run the 
program again. □ 


NIGHT 


1 PLAYER 


LARGE MEDIUM SMALL 




1 

T 

S 

4 


6 

T 

8 

a 





i 

PLAYER 2 



_i 

2 PLAYER 

LARGE 

MEDIUM 

SMALL| 

— 

LARGE 

1 

\2 

3 

10 

11 

12 

13 

14 

15 

PLAYER 

MEDIUM 

19 

20 

21 

4 

5 

6 

16 

17 

18 

1 — * 

SMALL 

22 

23 

24 

25 

26 

27 

7 

8 

9 



4 

4- 

4 

4 

4 

4 

4 

4 

4 



E 

M 

H 

E 

M 

H 

E 

M 

H 


DAY 


ho Ml Il2| 


1281291301 

4 4 4 

E M H 


MAZE DIFFICULTY 

E=EASY M=MEDIUM H=HARD 
(LARGE, MEDIUM, SMALL= LANTERN SIZE) 


190 CLR : GOTO 150 

110 SOUND CO, CO, CO,CO : RETURN 

120 FOR T-Cl TO 50:NEXT I:RETURN 

130 Di=ASC(MS CZ,Z) )-48:D2=ASCCMS (Z + Cl, 

Z+C1))~48 

140 BYTE-HEX(D2J +C16*HEX(D1J :02=02+01: 
POKE 0709,PEEK(53770) '.RETURN 
150 READ 08,01,02,03,04,05,06,07,08,09 
,010,Oil,012,013,014,016,0128,0560,056 
1,0709,0710.0711,0712 

160 DIM DL15(013),RS(016), MS(442),HEX( 
22) : GRAPHICS 18:P05ITI0N 04,05:^ ttC6;" 
initializing" 

170 FOR 1 = 01 TO 013 : READ BYTE:DLlS(I) = 
CHRS(BYTE):NEXT I 

188 FOR I=C1 TO 016:READ BYTE:RS(I)=CH 
R5 (BYTE):NEXT I:F0R 1=00 TO 22:READ BY 
TE:HEX(I)=BYTE:NEXT I 

190 Q2=-C1:FOR 1=01 TO 03:READ MS:F0R 
Z=C1 TO LEN(M$)-01 STEP 02:GOSUB 130:P 
OKE 1571+02,BYTE:NEXT Z:NEXT I 
200 Q2=-Cl:F0R I=C1 TO 21:READ MS:F0R 
Z=C1 TO LEN(MS)-Cl STEP C2:G0SUB 130:P 
OKE 29696+02,BYTE:NEXT Z:NEXT I 
210 FOR X=29689 TO 29695:P0KE X,C0:NEX 
T X:F0R 1=1536 TO 1570:POKE I,C0:NEXT 
I 

228 GRAPHICS C16:P0KE C16,112:P0KE 537 
74,112 

230 POKE C710,C0:ST=PEEK(C568)+256*PEE 
K (0561)+04:POKE ST+C2,07:POKE ST+C4,C6 
SPOKE ST+24,65 

240 POKE ST + 25,PEEK (0560):P0KE ST+26,P 
EEK(0561) 

258 POKE 0708,CO:POKE C709,C0:POKE 071 

1,00 

260 POKE ST + 20,130 SPOKE 513,INT(ADR(DL 
lS)/256) '.POKE 512, ADR (DLI5)-(PEEK (513) 
*256):POKE 54286,192 

278 POKE 752,01SPOSITION 03,Cl:? "THUN 
DER ISLAND" 

280 POSITION 22,02:? 

B" 

290 POSITION 03,20:? "Copyright (0198 
3 ANALOG computing" 


ate het 


300 FOR X=C1 TO 03:POKE 0712,014:POKE 
0710,014:FOR Y=C0 TO 50:SOUND C8,Y,C8, 
08 

310 IF Y=25 THEN POKE C710,C0:POKE 

C712 CO 

320 ' NEXT V:NEXT X:FOR Y=51 TO 255: 

SOUND 08,Y,C8,C8:NEXT Y:POKE 0712,50:P 
OKE 0710,50:POKE 0709,08 
330 POKE 708,218:POKE 0711,122:GOSUB 1 
10 

340 PO SITION 010,09:? "|_ 

1 : POSITION ClO^lOsT -71 ] | 


PLAYER 


358 POSITION 010,11:? "| 



>KILL=C1:LEUELP=C1 
370 POSITION 27,010:? SKILLJFOR X 
=C1 TO 100:NEXT X 
380 IF PEEK(53279)<>C3 THEN 448 
390 LEUELP=LEUELP+Ci:LEUELP=LEUELP-C2* 
(LEUELP=C3)SPOSITION C11,C10:IF LEVELP 
=C1 THEN ? "ONE"; 

400 SOUND 00,CIO,08,08:GOSUB 110 
410 IF LEUELP=C2 THEN ? "TWO"; 

420 IF LEUELP=C1 AND SKILL>C12 THEN SK 

ILL=C1:GOTO 370 

430 GOSUB 120:GOSUB 120 

440 IF PEEK(53279)<>C5 THEN 490 

450 SKILL=SKILL+C1:IF LEUELP=C1 THEN S 

KILL=SKILL-C12*(SKILL=13) 

460 IF LEUELP=C2 THEN SKILL=SKILL-38*( 
SKILL=31) 

470 SOUND CO,20,C8,C8:GOSUB 110 
480 GOTO 370 

490 IF PEEK (53279)<>06 THEN 380 

500 IF LEUELP=C2 THEN 540 

510 LEUELD=(SKILL(CIO):LEUELM=SKILL-03 

*INT((SKILL-01)/C3):LEUELMA=C2~INT((SK 

ILL-CD/C3) 

520 IF NOT LEUEI.D THEN LEUELWA=O0 
530 GOTO 610 

540 LEUELD=(SKILL<28):LEUELM=SKILL-03* 
INT((SKILL-01)/C3) :T = INT ( (SKILL-01)/C3 
) 

550 IF T=C0 OR T=C3 OR T=C4 THEN LEUEL 
WA = C2 

560 IF T=C1 OR T=05 OR T=C6 THEN LEUEL 
WA=C1 

570 IF T=02 OR T=C7 OR T=C8 THEN LEUEL 
MA = CO 

580 IF T=C0 OR T=C5 OR T=C7 THEN LEUEL 
WB = C2 

590 IF T=C1 OR T=C3 OR T=C8 THEN LEUEL 
MB = C1 

600 IF T=C2 OR T=C4 OR T=C6 THEN LEUEL 
UB = C6 


610 GRAPHICS 21:POKE C16,112:P0KE 5377 
4,112 

620 LEUELM=80*(LEUELM=C2)+255*(LFUELM= 
03) : WIDTHA=LEUELWA*C4 : WIDTHB=LEUELMB*C 
4:IF WIDTHA=C8 THEN WIDTHA=C12 
630 IF MIDTHB=C8 THEN MIDTHB=C12 
640 POKE 0712,50:POKE 0710,50:COLOR 03 
SPOKE 0709,014 

658 FOR X=C0 TO 78 STEP C3:PL0T X,C0:D 
RAMTO X,45:NEXT X:FOR Y=C0 TO 45 STEP 
03:PLOT Cl,Y:DRAWTO 77,Y:NEXT Y 
660 SOUND C0,C11,C8,C8:FOR X=C1 TO 03: 
NEXT X:GOSUB 110:POKE C710,218:FOR X=C 
1 TO 5O0:NEXT X 

678 MS (Cl , Cl) ="0" : MS (442,442) ="0” : MS (C 
2)=MS:A=INT(RND(00)*390)+27:MS(A,A)="1 


680 POKE 1536,LEUELM:POKE 1537,133:P0K 
E 1538,01:SOUND 08,24,04,06:X=USR(3012 
7,ADR(MS)) 

690 A=42*INT(RND(C6)*C2):COLOR 08:PLOT 
00,Cl+A:PLOT 78,44~A:PLOT C0,C2+A:PLO 
T 78,43-A:G0SUB 110 

780 M=112:POKE 1552,01:POKE 1554,C1+A+ 
(A>CO)SPOKE 1556,WIDTHA 

710 POKE 1553,77:IF LEUELP=C2 THEN POK 

E 1555,44-A-(A>C0):POKE 1557,WIDTHS 

720 FOR L=C8 TO 03:POKE 53248+L,00:NEX 

T L:POKE 54279,M:POKE 559,46:P0KE 623, 

34 SPOKE 53277,03:PMB=W*256 

730 POKE 53258,WIDTHA/04:POKE 53259,WI 

DTHB/C4 
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749 T=PMB+512:F0R L = T TO T+511:P0KE L, 
CO:NEXT L:L=A*C2+C2*(A>C0):POKE T+L+18 
, 24 :POKE T+L+19,24 

750 L=84-0*C2+C2*(0rC0>SPOKE T+L+146,2 
4:P0KE T+L+147,24 

760 L=PMB+A*C2+C2*(A>C0)+768+15~C4*LEU 
ELMO:FOR X=L TO L+C7+C8*LEUELWA:POKE X 
255:NEXT X 

770 L=PMB+84-A*C2+C2*(A=C0)+896+15-C4* 
LEUELMB :FOR X = L TO I. +C7+C8*LEUELMB : POK 
E X,255 : NEXT X 
780 POKE 53248,47 

790 SOUND C9,C11,C8,C8:F0R X=C1 TO C3: 
NEXT X : GOSLIB 110:POKE 704 , C14 : GOSUB 12 
0:POKE 53250,47-MIDTHO 

880 FOR X=C16 TO C8 STEP -Cl: SOUND CO, 
X,C8,C8:POKE 706,C16-X:F0R Y-Cl TO CIO 
!NEXT Y : NEXT X:GOSUB lJOlPOKE 706,72 
810 IF LEUELPOC2 THEN 850 
820 GOSUB 120: GOSUB 120IPOKE 53249,199 
ISOUNO C0,C.ll,C8,C8:FOR X = C1 TO C3: NEX 
T X : GOSUB 1.10 : POKE 705, C14 : GOSUB 120 
830 POKE 53251,199-WIDTHB 
840 FOR X = C16 TO CO STEP -C1:S0UND CO, 
X,C8,C8:POKE 707,C16 _ X:FOR Y=C1 TO CIO 
:NEXT Y:NEXT X:GOSUB 110:P0KE 787,24 
850 FOR X=C1 TO 200:NEXT X'.POKE C712,C 
14:FLASH-C8 

868 IF LEUELD THEN POKE C710,144 
878 ST = PEEK (C560)+256*PEEK CC561)+C4:PO 
KE 5T+47,C2:POKE ST+48,65:POKE ST+49,P 
EEK (C560) :POKE ST + 50,PEEK(C561) 

880 X=USR(1571):SOUND C3,C10,C8,C2 
890 X=USR(29696) 

900 IF FLASH<255 THEN 930 
910 IF INT(RND(C0)*280)<>10O THEN 950 
920 POKE C7I2,C14:FLASH=C0:SOUND C2,C8 
,C8,15 

938 FLASH=FLA5H+C5:SOUND C2,FLASH,C8,C 
8 :IF FLASH=255 THEN SOUND C2,C0,C0.C0: 
REM 

940 IF FLASH=25 THEN SETCOLOR C4,C9-C6 
*(LEVELD=CO),C2* (LEUELD = C0) 

958 IF PEEK(1560) OR PEEK11561) THEN 9 
90 


960 IF PEEK (1558) THEN SOUND C0,20,C8, 
C8 

970 IF PEEK (1559) THEN SOUND C0,40,C8, 
C8 

980 FOR X-Cl TO C5:NEXT XrGOSUB 110:G0 
TO 890 

990 X=L!SR (1703) : SOUND C2,C0,C0,C0 
1000 IF PEEK(1560) THEN POKE 53249,C0: 
POKE 53251,C0 

101O IF PEEK (.1561) THEN POKE 53248, C0 : 
POKE 53250,CO 

1O20 X=USR(ADR(RS)):FOR X=53248 TO 532 
51 : POKE X,CO:NEXT X:GOTO 210 
1030 REM * CONSTANTS 

1040 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 

,13,14,16,128,560,561,709,710,711,712 

1050 REM * DLI ROUTINE 

I860 DATA 72,169,14,141,10,212,141,23, 

208,169,88,184,64 

1078 REM * RAINBOW ROUTINE 

1880 DATA 104,169,6,232,142,10,212,142 

,24,208,285,31,208,208,242,96 

1098 REM * HEX DATA 

1108 DATA 0,1,2,3,4,5,6,7,8,9,0,0,0,0, 

0,0,0,10,11,12,13,14,15 

1110 REM * TIMER ROUTINE 

1120 DATA 6818A9A9655885CDA903655985CE 

093C8D22O2A9068D230260A514C906B0034C5F 

E4A90O8514EE1F06OD1F06C90AD032A900 

1130 DATA 8D1F06EE2006AD2006C90AD823A9 

008D2006EE2106AD2106C906DO14A9O08D2106 

EE22O6AD2206C90AD005A9008D2206A000 

1148 DATA A204C861F804C064D008O91A91CD 

C81890F0BD1E06491091CDC8CADOE54C5FE468 

AD6OE48D2202AD61E48D23026O 

.1150 REM * P/M-STICK ROUTINE 

1160 DATA 68A2008D1E06AE1E06A9809D1606 

9D18O6BD10068D1A06BD12068D1B06BD78024A 

9803EE1BO64A489003CE1B06205B74AD1E 

1170 DATA 06AABD10068D1A86BD12068D1B06 

684A9083EE1A064A9083CE1A06205B74EE1E06 

AD1E06C902D0AC68A55885CBA55985CCAD 


1180 DATA 1A064A4A184865CB85CBO90065CC 

85CC680A8A8D0E06A9O3186D0E0638ED1A068D 

0E86A9008D1D06AD1B06A2040A2E1D86E0 

1190 DATA O3D00B8D1C06AD1D0648AD1C0648 

CAD0EA8D1C0668186D1C868D1C06686D1D868D 

1D8618A5CB6D1C8685CBA5CC6D.1D0685CC 

1200 DATA A000B1CBAE0E664A4AA000B002A0 

FFC8CAE0FFD0F2C001D00160A90138ED1E06A8 

AD1E06AAB91206CD1B06D009B910O6CD1A 

1210 DATA 06D00160AD1E06A8208775AD1A06 

DD1006F011FE16860A18692D9D00D038FD1406 

9D02D0AD1B06DD1206F052FE16069O27A2 

1220 DATA 7DC08.1D0OFBD80729D8272BD8073 

9D827318900CBDO0729D0272BD08739D0273CA 

D0DE189026A202C001D00FBD80729D7E72 

1230 DATA BD80739D7E7318900CBD80729DFE 

71BD00739DFE72E8E87FD0DC98AAAD1B069D12 

06AD1A069D100660AD1A06EO00D010C900 

1240 DATA D004EE1A0660C94ED014FE180660 

C94ED004CE1A0660C980D004FE188660606868 

8D08O6688D0706AD0AD2290FC90FF0F78D 

1250 DATA 0306AD0AD2291FC91A10F78D0406 

20O577B1CDC931D0DFA9008D0906ADO406C901 

9O05A019206277OE0906AD0406C9.19B005 

1260 DATA A01B2062770E0906AD0306C9819O 

05A8002062770E0906AD0306C90EB005A0342O 

6277AD09O6C900F09AAD04060A186D0406 

1270 DATA 8D0A06AD03O60A186D03068DOB06 

A514F0FCA90O8514A9148D00D2AD0AD229038D 

0FO6C900D019ADO9062908F019CE0406EE 

1280 DATA 0B06206C77EE8B062O6C774CCE76 

ADOF06C901D022AD09O62904F022EE0406EE0A 

O6EE0A06EEOA06EE0B06206C77EE0B0620 

1290 DATA 6C774CCE76ADOFO6C902D019AD09 

062902F012CE0306EE8A06206C77EE0A06206C 

774CCE76AD09062901F097EE0306EE0B06 

1300 DATA EE0B06EEOB06EE0A06206C77EE0A 

06206C77A9188D80D220O577A93191CD38AD01 

86E9018D0106AD0206E9008D0206C9O0DO 

1310 DATA 08AD0106C908D08160ADOAD2CD06 

0698034CD9754CB875AD03068DO50648ADO4O6 

A2O08E0606A2048E05062E0606E002D008 

1320 DATA AD06O648AD050648CAD0EB18686D 

05068D8506686D06068D0686680A186DO4066D 

05068D0506ADO606690O8D060618AD0706 

1330 DATA 6D050685CDAD08866D060685CEAO 

1A60B1CDC930DO03EE090660A55885CBA55985 

CCAD8A864A4A184865CB85CBA90065CC85 

1340 DATA CC680A0A8D6EO638AD0A06EDOE06 

AAE8A93FCAF006386A6A4C96778D0E86A9008D 

0C06AD0B06A204OA2EOC06E003D0068D6D 

1350 DATA 06ADOC0648AD8DO648CAD0EA8D0D 

0668186D0D068D0D06686D0C068DOCO618A5CB 

6DOD0685CBA5CC6D0CO685CCA000B1CB2D 

1360 DATA 0E0691CB60 


CHECKSUM DATA 
(See pgs. 7-10) 


190 DATA 120,824,516,417,482,48,674,35 

4,803,435,271,537,335,77,927,6820 

250 DATA 232,612,562,820,582,532,611,4 

31,113,568,211,363,497,995,287,7416 

400 DATA 940,988,982,918,994,566,121,1 

86,738,7,422,389,847,713,37,8768 

550 DATA 838,848,858,856,857,833,496,5 

31,266,652,915,829,350,519,627,10275 

700 DATA 594,213,595,989,905,613,15,33 

1,147,142,889,360,64,498,903,7258 

48 ' 178 ' 5 3/,3b6, js4d, 54b, 54 
3,333,350,64,69,76,671,347,4915 

63,64,263,703,753,175,959,51 
9,126,670,356,2^7,5^3,3^5,765,6613 
1150 DATA 39,474,703,648,869,749,454,5 
720 '445,152,388,589,603,8176 
1300 DATA 561,372,328,695,672,781,376, 
3785 
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MANIAC! 


32K Cassette or Disk 
by Rick Messner 


Over the past several years, many game programs 
have been developed for the ATARI computers. 
Unfortunately, most of these games cost from $30 to 
$40 apiece. Taking pity on those who, like myself, 
cannot afford to buy all those great games, I pro- 
grammed an arcade-style game called Maniac! This 
fast-action Assembly language game is yours for the 
price of a few hours of typing. You’re going to like 
this one! 

The game. 

Maniac! is set in a maze with eight levels. Each 
level is filled with crazed robots. These robots were 
once peaceful gardeners but became short-circuited 
by pesticides, and are now trying to destroy anything 
that moves with their missile-firing shovels. You are 
dropped into the first level of this maze, equipped 
only with your trusty .45 and ammunition. Your job 
is to stop all the robots on each level. 

At first, your task is not particularly difficult, but 
as you enter the higher-numbered maze levels the job 
gets harder and harder. That’s because the robots on 
the higher-numbered maze levels have been around 
longer and are covered with a protective layer of 
earth and bullrushes. 

To start. 

At the beginning of this game there is a short in¬ 
troduction (just to help you learn my name), and 
then the machine asks you if you are going to have 
a one or two-player game. Enter your choice. A light 
grey maze appears on your monitor screen, along 
with a green figure representing you and three red 
figures representing the robots. At the end of the 
maze opposite from where you start is a door. Your 
objective is to destroy all three robots and to run out 
the exit door. If you do this, the computer automati¬ 
cally advances you to the next level of the maze. If, 
however, you exit without destroying all the robots, 
you remain at your current level and must try again. 


Movement. 

The computer moves the robots in a one-person 
game. In a two-person game, one player controls the 
hunter, and the other player controls the robots. 
Moving either the hunter or the robots is very 
simple. Hold the joystick in the normal position and 
push it in the direction you wish to move. 

If a robot and the hunter collide, either one or 
both is blown up. If either a robot or a hunter walks 
into a wall, it will explode. 

Earth and bulrushes. 

Robots on the higher-numbered maze levels be¬ 
come increasingly covered with a layer of earth and 
bulrushes. This makes it rather hard for the hunter’s 
.45 to hit one. To kill a robot, the hunter must shoot 
it once for each level of the maze. Thus, on level six, 
the hunter must shoot each robot six times before it 
is destroyed. 

2-player version. 

In the two-player game, one person controls the 
hunter, and the other person controls the robots. 
The hunter is controlled by the joystick in port zero, 
and the robots are moved by the joystick in port one. 

To start, the person with the robots moves only 
the leftmost robot. If it is killed, control switches to 
the center robot. When that one is killed, control 
moves to the rightmost robot. 

As the player controlling the robots becomes 
more skilled he may want to switch control from 
robot to robot at will. This can be done by using one 
of three keyboard keys. To make the joystick control 
the leftmost robot, press the semi-colon key; to 
make the joystick control the center robot, press the 
plus sign key; to make the joystick control the right¬ 
most robot, press the multiplication sign key. 

Firing. 

Both the hunter and the robot can fire in many 
different directions. To rotate the arm — and the 
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weapon — of either the hunter or the robot, do this: 
press the joystick button and hold it down. While 
the button is depressed, you may move the joystick 
in any direction — this will cause the arm to rotate. 
As soon as you let go of the red button, the weapon 
will fire. 

If you wish to fire without moving the direction of 
the weapon, simply press and release the red button 
on your joystick. 

Scoring. 

Points are awarded to the hunter but not to the 
robots. The robots get their pleasure solely from 
frustrating the hunter. Scoring is as follows: the 
hunter gets ten points per level for each robot des¬ 
troyed, with a 1,000-point bonus for making it 
through all eight levels. 

Typing the program. 

Two program listings follow this article. Listing 1 
is the main data and data checking routine, and will 
create the cassette version of Maniac! Listing 2 
should be added to Listing 1 for disk users. 

Cassette instructions. 

1. Type Listing 1 into your computer and check it 
for typing errors by using C:CHECK. 

2. Type RUN and press RETURN. The program 
will check for errors in the DATA lines. If any error 
messages are displayed, correct the lines indicated 
and re-RUN the program until all errors are elimi¬ 
nated. 

3. When all the DATA statements are correct, the 
program will ask you to "READY CASSETTE AND 
PRESS RETURN” and the console will BEEP twice. 
Place a cassette in your program recorder, press 
RECORD and PLAY simultaneously, then press RE¬ 
TURN. The computer will create a boot tape con¬ 
taining the Maniac! game. It is a good idea to CSAVE 
the BASIC program at this time, just in case you 
want to use it again later. 

4- To play Maniac!, remove any cartridges from 
your system. Place the Maniac! boot tape in your 
program recorder, rewind it to the beginning and 
press PLAY. Turn the computer’s power OFF, then 
turn it ON while pressing START. The computer 
will BEEP. Press RETURN and the game will load 
and run automatically. 

Disk instructions. 

1. Type Listing 1 into your computer and check it 
for typing errors with D:CEIECK. After correcting 
any typing errors, enter the lines with Listing 2. 
These lines will merge with Listing 1 in order to 
create a Maniac! disk version maker program. 

2. Type RUN and press RETURN. The program 
will check for any errors in the DATA statements 
and will display a message if any errors are found. 
Correct any DATA lines that are in error and re- 
RUN the program until all errors are corrected. 


3. When the computer has made sure there are no 
errors in the DATA lines, it will ask "INSERT DISK 
WITH DOS, PRESS RETURN.” Place a disk with 
DOS in drive 1 and press RETURN. The program 
will create an AUTORUN.SYS file containing the 
Maniac! game. When the READY prompt appears, 
the program is finished. It is a good idea to SAVE the 
Maniac! BASIC program just in case you need it 
later. 

4. To play Maniac!, place the disk containing the 
AUTORUN.SYS file in drive 1. Remove any car¬ 
tridges and turn the computer’s power OFF, then 
ON. The Maniac! game will automatically load and 
start. □ 


10 REM MANIAC CASSETTE MAKER PROGRAM 
70 REM 

30 CLR :DIM X${3984):0=0:LINE=4990:RES 
TORE 500O 
40 P = 0 

50 LINE=LINE+18 : ? "CHECKING LINE "; L IN 
E 

68 FOR 1=1 TO 16 
70 0=0+1 

88 TRAP 140:READ J:IF 1=1 THEN IF LINE 
OPEEK C183) +PEEK (1841*256 THEN ? “LINE 
" ; LINE 1" MISSING■":END 
98 IF J=999 THEN 150 
100 XS CO)= CHR$ CJ) 

110 P=P+J 
170 NEXT I 

130 TRAP 140: READ J ; IF P = .J THEN 40 
140 ? "ERROR IN LINE ";LINE:ST0P 
150 ? "READY CASSETTE AND PRESS RETURN 
":0PEN ttl,8,0,"C:" 

160 ? ttl; X$ 

170 CLOSE ttl 

5000 DATA 0,31,0,64,35,64,169,60,141,2 

,211,169,119,141.231,2,1439 

5010 DATA 133,14,169,79,141,232,2,133, 

15,169,38,133,10,169.64,133,1634 

5020 DATA 11,24,96,96,83,58,32,28,76,3 

2,55,72,162,255,141,30,1251 

5030 DATA 208,232,224,4,246,246,142,18 

4,79,169,2,141,187,79,32,148,2317 

5040 DATA 75,172,185,79,185,232.76,133 

,176,133,.188,185,233,76,133,177j2430 

5050 DATA 133,181,189,127,79,24,281,3, 

176,18,32,210,64,32,184,65,1718 

5060 DATA 32,38,68,32,173,70,32,223,68 

,32,17,71,189,159,79,201,1484 

5870 DATA 0,240,6,32,108,70,32,179,69, 

32,108,65,169,11,24,237,1382 

5080 DATA 191,79,141,188,79,169,2,141, 

190,79,32,189,75.173,188.79,1995 

5090 DATA 141,181,79,32,61,65,32,253,7 

3,32,178,64,32,180,71,32,1586 

5100 DATA 248,71.173,127,79,281,7,240, 

3,76,49,64,32,127,72,76,1645 

5110 DATA 44,64,173,252,2,141,0,184,17 

3,200,79,281,1,208,1,96,1739 

5120 DATA 173,252,2,281,7,240,46,201,6 

,248,34,201,2,240,22,76,1943 

5138 DATA 258,64,189,135.79,24,233.47, 

157,173,79,189,139,79,24,233,2894 

5140 DATA 16,157,177,79,96,169,1,141,1 

95,79,76,250,64,169,2,141,1812 

5150 DATA 195,79,76,250,64,169,3,141,1 

95,79,172,195,79,185,127.79,2088 

5160 DATA 24,201,2,176,1.96,173,207,79 

,24,201,0,176,5,169,2,1536 

5170 DATA 141,207,79,206,207,79,173,28 

7,79,201,1,240,1,96,169,6,2886 

5188 DATA 141,207,79,168,1,185,127,79, 

24,201,2,144,7,208,152,201,1910 

5190 DATA 4,208,242,96,148,195,79,169, 

255,141,252,2,96,142,182,79,2282 
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5200 DATA 148,183,79.162,255,232,236.1 

81,79,240,11,160,255,200,152,201,2766 

5210 DATA 255,208,250,76.69,65,174,182 

,79,172,183,79,96,142,182,79,2291 

5220 DATA 162,255,232,236,181,79,208,2 

50,174,182,79,96,189,127,79,24,2553 

5230 DATA 201,2,176,1,96,24,201,7,144, 

1,96,24,105,10,141,187,1416 

5240 DATA 79,169,15,141,184,79,32,148, 

75,173,185,79,24,109,230,76,1798 

5250 DATA 133,178,173,186,79,109,231,7 

6,133,179,165,176,24,125,139,79,2185 

5260 DATA 133,176,165,177,105,0,133,17 

7,168,0,177,178,145,176,200,152,2254 

5270 DATA 201,15,208,246,254,127,79,96 

,189,131,79,201,1,208,1,96,2132 

5280 DATA 224,0,240,14,236,195,79,240, 

3,76,216,65,173,121,2,76,1960 

5290 DATA 38,67,189,120,2,76,38,67,169 

,1,157,131,79.173,191,79,1577 

5308 DATA 141,187,79,169,10,141,184,79 

,32,148,75,173,10,218,24,205,1867 

5310 DATA 185,79,144,1,96,189,139,79,2 

4,205,139,79,144,50,24,233,1810 

5320 DATA 1,24,205,139,79,176,35,169,1 

5,141,114,3,189,135,79,24,1528 

5330 DATA 205,135,79,144,15,24,205,135 

,79,i/6,3,76,38,b7,32,163,1576 

5340 DATA 66,76,38,67,32,224,66.76,38, 

67,32,54,66,76,9,66,1053 

5350 DATA 32.118,66,76,9,66,189,173,79 

,133,85,189,177,79,24.233,1720 

5368 DATA 0,133,84,32,36,70,168,0,177, 

178,201,8,208,29,230,85,1623 

5370 DATA 32,36,78,173,181,79,201,0,20 

8,17,198,85,198,85,32,36,1631 

5388 DATA 70,173,181,79,281,0,208,3,16 

9,14,96,169,15,96.189,173,1836 

5390 DATA 79,133,85,189,177,79,24,105, 

17,133,84,32,36,78,160,0,1403 

5400 DATA 177,178,201,0,208,229,238,85 

,32,36,70,173,181,79,281,0,2088 

5410 DATA 208,217,230,85,238,85,32,36, 

78,173,181,79,201,0,208,203,2238 

5420 DATA 169,13,96,189,173,79,133,85, 

189,177,79,133,84,32,36,70,1737 

5438 DATA 169,16,141,181,79,160,0,140, 

183,79,160,0,177,178,201,0,1864 

5440 DATA 208,94,165,178,24,109,193,79 

,133,178,165,179,105,0,133,179,2122 

5450 DATA 172,183,79,200,152,205,181,7 

9,208,221,173,114,3,41,11,96,2118 

5460 DATA 189,173,79,24,105,8,133,85,1 

89,177,79,133,84,32,36,70,1596 

5470 DATA 169,16,141,181,79,160,0,140, 

183,79,160,0,177,178,201,0,1864 

5488 DATA 208,38,165,178,24,109,193,79 

,133,178,165,179,105,0,133,179,2058 

5490 DATA 172,183,79,200,152,285,181,7 

9,208,221,173,114,3,41,7.96,2114 

5500 DATA 173,114,3,41,15,96,201,14,24 

0,29,281,6,240,59,201,7,1640 

5510 DATA 248,33,201.5,240,65.201,13,2 

40,19,281,9,240,71,201,11,1998 

5520 DATA 240,28,201,10,240.77,96,32,2 

22,67,76,161,67,32,0,68,1617 

5530 DATA 76,161,67,169,1,157,127,79,2 

54,135,79,76,161,67,169,0,1778 

5548 DATA 157,127,79,222,135,79,76,161 

,67,32,222,67,254,135,79,169,2061 

5550 DATA 1,157,127,79,76,161,67,32,0, 

68,254,135,79,169,1,157,1563 

5568 DATA 127,79,76,161,67,32,0,68,222 

,135,79,169,0,157,127,79,1578 

5570 DATA 76,161,67,32,222,67,222,135, 

79,169,0,157,127,79,76,161,1830 

5580 DATA 67,32,189,67,189,135,79,157, 

0,208,189,119,79,201,1,240,1952 

5590 DATA 6,169,1,157,119,79,96,169,0, 

157,119,79,96,189,135,79,1658 

5680 DATA 24,201,288,176,6,24,201,48,1 

44,14,96,169,208,157,135,79,1898 

5610 DATA 224,0,288,3,76,228,74,96,169 

,48,157,135,79,96,189,139,1921 

5620 DATA 79,24,201,13,144,25,222,139, 

79,24,105,16,141,181,79,188,1660 

5638 DATA 139,79,177,176,136,145,176,2 

00,200,152,205,181,79,288,243,96,2592 


5640 DATA 189,139,79,24,201,96,176,29, 

24,105,16,168,177,176,200,145,1944 

5650 DATA 176,136,136,189,139,79,24,23 

3,3,141,181,79,152,285,181,79,2133 

5660 DATA 288.234,254,139,79,96.189,13 

1,79,201,1,240,1,96,224,0,2172 

5678 DATA 240,57,236,195,79,248,46,169 

,0,157,131,79,189,139,79,24,2060 

5680 DATA 233,14,24,205,139,79,176,14, 

24,105,22,205,139,79,144,12,1614 

5690 DATA 169,1,157,123,79,96,169,0,15 

7,123,79,96,169,2,157,123,1700 

5700 DATA 79,96,76,110,68,173,121,2,76 

,110,68,189,120,2,201,6,1497 

5718 DATA 281,6,240,62,201,10,240,25,2 

01,7,240,65,201,11,240,28,1978 

5720 DATA 201,5,240,68,201,9,240,31,28 

1,14,240,71,201,13,240,73,2048 

5730 DATA 96,169,0,157,123,79,169,8,15 

7,127,79,96,169,1,157,123,1782 

5740 DATA 79,169,8,157,127,79,96,169,2 

,157,123,79,169,0,157,127,1690 

5750 DATA 79.96,169,0,157,123,79,169,1 

,157,127,79,96,169,1,157,1659 

5760 DATA 123,79,169,1,157,127,79,96,1 

69,2,157,123,79,169,1,157,1688 

5778 DATA 127,79,96,169,8,157,123,79,9 

6,169,2,157,123,79,96,224,1776 

5780 DATA 8,240,38,236,195,79,240,27,1 

73,191,79,141,187,79,169,10,2084 

5790 DATA 141,184,79,32,148,75,173,16, 

210,24,205,185,79,144,1,96,1786 

5808 DATA 76,30,69,173,133,2,76,12,69, 

189.132,2,281,0,240,8,1412 

5810 DATA 189,131,79,201,1,240,7,96,16 

9,1,157,131,79,96,189,159,1925 

5820 DATA 79,201,0,248,1,96,169,1,141, 

196,79,169,0,157,131.79,1739 


5830 DATA 189,127,79,201,1,248.8,169,2 

54,157,151,79,76,68,69,169,2037 

5848 DATA 2,157.151,79,189.123,79,201, 

0,240,9,201,1,240,13,201,1886 

5858 DATA 2,240,17,96,169,255,157,155, 

79,76,105,69,169,8.157,155,1901 

5860 DATA 79,76.185.69,169,1,157.155,7 

9,169,35,157,159,79,189,127,1885 

5870 DATA 79,141,187,79,169,3,141,184, 

79,32,148,75,173,185,79,24,1778 

5880 DATA 125,123,79,141,184,79,169,2, 

141,187,79,32,148,75,173,185,1922 

5890 DATA 79,168,185.241,77,24,125,135 

,79,157,143,79,185,242,77,24,2820 

5900 DATA 125,139,79.157,147,79,188,14 

7,79,189,110,78,25,128,105,153,1928 

5910 DATA 128,105,96.222,159,79,188,14 

7,79,189,110,78.89,128,105,153,2055 

5920 DATA 128,105,152,24,125,155,79,15 

7,147,79,189,159,79,201,8,240,2019 

5938 DATA 74,189,143,79,24,125,151,79, 

157,143,79,24,233,47,133,85,1765 

5940 DATA 189,147,79,24,233,16,133,84, 

32,36,70,173,181,79,24,201,1701 

5950 DATA 0,208,31,230.85,32,36,70,173 

,181,79,201,0,208,19,188,1741 

5960 DATA 147,79,189,110,78,25,128,105 

,153,128,105,189.143,79.157,4,1819 

5970 DATA 288,96,169,9,157,159,79,157, 

4,208,96,169,0,157,143,79,1881 

5989 DATA 157,4,208,96,140,183,79,165, 

84,141,187,79,173,193,79,141,2109 

5998 DATA 184,79,32,148,75,165,85,141, 

188,79,169,4,141,190,79,32,1791 

6080 DATA 139,75,173,185,79,24,109,188 

,79,141,185,79,173,186,79,101,2845 

6810 DATA 89,133,179,173,185,79,24,101 

,88,133,178,165,179,185,0,133,1944 

6020 DATA 179,160,0.177,178,141,181,79 

,172,183,79,96,189,143,79,24,2860 

6830 DATA 281.208,176,19,24,201,44.144 

,27,189,147,79,24,201,112,176,1972 

6048 DATA 32,24,281,13,144,33,96,169,1 

,157,159,79,169,208,157,143,1785 

6058 DATA 79,76,121,70,169,1,157,159,7 


9,169,44,157,143,79,76,121,1700 


6060 DATA 78,169,1,157,159,79,96,169,1 

,157,159,79,96,189,127,79,1787 

6078 DATA 141,184,79,169,3,141,187,79, 

32,148,75,173,185,79,24,125,1824 
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6080 DATA 123,79,141,181,73,189,118,79 
,141,184,79,169,6,141,187,79,1976 
6090 DATA 32,148,75,173,185,79,24,109, 

181.79.141.187.79.169.15.141.1817 
6100 DATA 184,79,32,148,75,173,185,79, 
24,109,230,76,133,178,173,186,2064 
6110 DATA 79,169,231,76,133,179,165,18 
0,24,125,139,79,133,180,165,181,2178 
6120 DATA 105,0,133,181,160,0,177,178, 
145,180,200,152,281,15,208,246,2281 
6130 DATA 96,189,4,208,24,201,0,208,73 
,189,12,208,24,201,0,208,1845 

6140 DATA 65,160,0,142,181,79,152,24,2 

05,181,79,240,39,189,135,79,1950 

6150 DATA 24,217,143,79,176,30,24,105, 

8,24,217,143,79,144.21,189,1623 

6168 DATA 139,79,24,217,147,79,176,12, 

24,105,15,24,217,147,79,144,1628 

6170 DATA 3,76,98,71,200,152,24,201,4, 

208,260,96,169,1,157,159,1819 

6188 DATA 79,96,222,163,79,169,1,153,1 

59,79,189,163,79,24,201,0.1856 

6198 DATA 246,1,96,169,1,141,197,79,16 

9,2,157,127,79,152,261,0.1811 

6280 DATA 240,9,138,281,0,240,31,206,1 

94,79,96,173,191.79,141,184,2202 

6218 DATA 79,169.10,141,187,79,32,148, 

75,173,185,79,14i,181,79,32,1790 

6220 DATA 159,73,286,194,79,96,206,192 

,79,173,192,79,281,0,240,1,2170 

6230 DATA 96.76,83,74,173,196,79,261,2 

,248,19,201,0,240,48,169,1897 

6240 DATA 2,141,196,79,166,0,140,198,7 

9,169,175.141,1,210,172,198,2061 

6250 DATA 79,200,140,0,210,260,140,0,2 

10,260,140,0,210,200,140,0,2069 

6260 DATA 210,200,140,0,210,152,24,201 

,240,176,4,140,198,79,96,169,2239 

6278 DATA 0,141,196,79,141,1,210,96,14 

0.183,79,173,197,79,201,6,1916 

6288 DATA 240,41,261,2,240,15,169,2,14 

1,197,79,169,143,141,3,216,1993 

6290 DATA 169,0,141,199,79,172,199,79, 

148,2,210,280,140,2,210,152,2094 

6308 DATA 201,240,176,7,140,199,79,172 

,183,79,96,169,0,141,197,79,2158 

6310 DATA 141,3,210,172,183,79,96,169, 

7.141.181.79.32.82.73.169.1817 

6320 DATA 46,141,47,2,169,3,141,29,208 

,169,200,141,192,2,169,56,1715 

6330 DATA 141,193,2,141,194,2,141,195, 

2,169,0,141,197.79,141,196,1934 

6348 DATA 79,169,104,141,7,212,160,1,1 

46,191,79,169,3,141,192,79,1867 

6358 DATA 169,16,162,0,157,167,79,232, 

224,6,208,248,32,43,74,169,1986 

6360 DATA 0,141,1,210,141,0,210,141,3, 

210.141,2,210,141,207,79,1837 

6370 DATA 173.191,79,24,201,8,176,21,1 

68,185,110,79,141,196,2,169,1923 

6380 DATA 0,141,198,2,141,197,79,141,1 

96,79,32,114,73,172,191,79,1835 

6390 DATA 140,184,79,169,4,141,187,79, 

32,148,75,169,3,141,194,79,1824 

6400 DATA 173,200,79,201,2,240,8,169,4 

,141,195,79,76,217,72,169,2025 

6410 DATA 1,141,195,79,169,2,141,252,2 

.169,40,141,193,79,173,185,1962 

6420 DATA 79,24,233,3,168,24,105,4,141 

, 181,79,162,0,185,46,78,1512 

6438 DATA 157,6,208,157,135,79,185,78, 

78,157,139.79,173,191,79,157,2052 

6448 DATA 163,79.169,0,157,131,79,157, 

143,79,157,159,79,200,232,152,2136 

6450 DATA 285,181,79,208,216,169,1,141 

,163,79,160,0,169,0,153,128,2052 

6460 DATA 105,153,0,106.153,128,186,15 

3,0,107,153,128,107,200,152,201,1952 

6470 DATA 128,208,233,169,1,141,123,79 

,141,124,79,141,125,79,141,126,2038 

6480 DATA 79,169,1,141,127,79,169,8,14 

1,128,79,141.129,79,141,130,1733 

6490 DATA 79,96,169,3,141,114,3,169,36 

,141,116,3,169,64,141,117,1561 

6588 DATA 3,169,28,141,122,3,173,181,7 

9,141,123,3,162,48,32,86,1494 

6518 DATA 228,96,160,8,185,253,77,24,2 

01,255,240,34,133,85,208,185,2356 


6520 DATA 253,77,133,84,169,85,32,221, 

75,200,185,253,77,133,85,200,2262 

6530 DATA 185,253,77,133,84,169,85,32, 

2,76,200,76,116,73,96,142,1799 

6540 DATA 182,79,162,0,160,0,185,167,7 

9,24,105,1,9,16,153,167,1489 

6550 DATA 79,201,26,288,11,169,16,153, 

167,79,208,152,201,6,208,230,2106 

6560 DATA 232,24,236,181,79,208,221,17 

4,182,79,32,286,73,96,160,86,2269 

6570 DATA 173,48,2,133,180,173,49,2,13 

3,181,177,180,24,105,7,133,1700 

6580 DATA 178,200,177,188,133,179,142, 

182,79,162,5,160,8,189,167,79,2212 

6598 DATA 145,178,286,202,152,201,6,20 

8.244.174.182.79.96.160.86.173.2486 
6660 DATA 48,2,133,180,173,49,2,133,18 
1,177,188,24,105,45,133,178,1743 

6610 DATA 200,177,180,133,179,160,8,16 

9,65,145,178,206,152,201,10,240,2389 

6620 DATA 5,205.192,79,208,241,169,0,1 

45,178,96,160,86,173,48,2,1987 

6630 DATA 133,180,173,49,2,133,181,177 

,180,133,178,280,177,180,133,179,2388 

6648 DATA 160,6,185,118,78,201,255,240 

,9,24,233,31,145,178,200,76,2133 

6650 DATA 66,74,96,32,194,76,169,0,141 

,181,79,32,82,73,169,0,1464 

6660 DATA 141,198,2,170,157,0,208,157, 

4,208,157,1,216,157,0,210,1980 

6670 DATA 232,224,4,208,239,160,0,185, 

37,79,24,281,255,240.9,24,2121 

6680 DATA 233,31,145,88,200,76,119,74, 

168,12,162,6,189,167,79,145,1880 

6690 DATA 88,136,232,224,6,288,245,32, 

184,74,160,30,162,8,189,201,2171 

6700 DATA 79,145,88,136.232,224,6,208, 

245,169,255,141,252,2,173,252,2607 

6710 DATA 2,201,255,240,249,76,38,64,1 

60,5,185,167,79,24,233,0,1978 

6720 DATA 24,217,281,79,176,15,24,105, 

1,217,201,79,144,6,136,152,1777 

6730 DATA 201,255,208,230,96,160,0,185 

,167,79,153,201,79,200,152,201,2567 

6740 DATA 6,208,244,96,162,0,169,0,157 

,4,208,157,0,208,157,0,1776 

6750 DATA 210,157,1,210,232,224,4,208, 

239,32,54,75,173,194,79,24,2116 

6760 DATA 201,0.288,3,238,191,79,173,1 

91,79,24,201,8,144,33,169.1942 

6770 DATA 1,141,191,79,160,0,169,208,1 

41,181,79,140,183,79,32,159,1935 

6780 DATA 73,172,183,79,200,140,183,79 

,152,281,5,208,241,238,192,79,2425 

6790 DATA 32,127,72,76,44,64,169,175,1 

41,1,210,162,8,165,88,133,1659 

6800 DATA 178,165,89,133,179,32,86,75, 

232,224,16,208,24B,169,0,141,2167 

6810 DATA 1,210,141,0,210,96,142,182,7 

9,162,0,32,126,75,165,178,1799 

6820 DATA 24,io9,i73,73,133,176,165,17 

9,105,0,133,179,238,199,79,173,2166 

6830 DATA 199,79,141,0.210,232.224,79, 

208,225,174,182,^9,96,160,6,2268 

6840 DATA 177,178,24,42,145,178,177,17 

8,24,42,145,178,208,152,205,193,2238 

6850 DATA 79,208,237,96,169,0,141,185, 

79,141,186,79,142,182,79,162,2165 

6860 DATA 8,18,46,186,79,14,187,79,144 

,9,24,189,184,79,144,3,1305 

6870 DATA 238,186,79,262,208,235,141,1 

85.79.174.182.79.96.142.182.79.2487 
6880 DATA 169,8,162,8,14,188,79,42,205 
,190,79,144,6,237,190,79,1792 

6890 DATA 238,188,79,202,288,238,141,1 

89,79,174,182,79,96,141,181,79,2494 

6980 DATA 142,182,79,148,183,79,169,11 

,141,114,3,169,0,141,120,3,1676 

6918 DATA 141,121,3,162,48,173,181,79, 

32,86,228,174,182,79,172,183,2044 

6928 DATA 79,96,141,251,2,142,182,79,1 

40,183,79,169,17,141,114,3,1818 

6938 DATA 162,48,32,86,228,174,182,79, 

172,183,79,96,32,194,76,169,1992 

6948 DATA 2,141,181,79,32,82,73,169.0, 

141,198,2,165,88,24,105,1482 

6950 DATA 61,133,178,165,89,185,0,133, 

179,160,0.185,163,78,201,255,2885 
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6960 DATA 240,9,24,233,31,145,178,200, 

76,59,76,32,205,76,32,205,1821 

6970 DATA 76,32,205,76,32,205,76,32,20 

5,76,169,255,141,181,79,32,1872 

6980 DATA 61,65,32,61,65,32,61,65,32,6 

1,65,32,61,65,32,61,851 

6990 DATA 65,32,194,76,169,2,141,181,7 

9,32,82,73,169,0.141,198,1634 

7800 DATA 2,165,88,24.105,40,133,178,1 

65,89,133,179,160,0,185,218,1864 

7O10 DATA 78,201,255,240,9,24,233,31,1 

45,178,280,76,142,76,32,194,2114 

7020 DATA 76,169,255,141,252,2,173,252 

,2,24,201,30.240,14,24,201,2056 

7030 DATA 31,240,3,76,166,76,169,1,141 

,200,79,96,169,2,141,200,1790 

7040 DATA 79,96,169,12,141,114,3.162,4 

8,32,86,228,96,169,1,141,1577 

7050 DATA 196,79,32,180,71,169,2,141,1 

81,79,32,61,65,173,196,79,1736 

7060 DATA 201,0,208,238,96.51,242,76,0 

,106,128,106,0,107,128,107,1794 

7870 DATA 128,105,140,92,76,44,28,12,1 

2,12,12,12,4,4,4,4,689 

7080 DATA 12,12,28,12,204,124,12,12,12 
,12,12,4,4,4,4,12,488 

7090 DATA 12.28,12,12,28,108,204,12,12 
.12,4,4,4,4,i2,49,517 

7180 DATA 58,50,52,56,48,48,48,48,48,3 
2,32,32,32,48,48,56,736 

7118 DATA 48,51,62,48,48,48,48,48,32,3 
2,32,32,48,48,56,48,729 

7120 DATA 48,56,54,51,48,48,48,32,32,3 

2,32,48,140,92,76,44,881 

7130 DATA 28,12,12,12,12,12,10,10,9,9, 

27,12,28,12,204,124,533 

7140 DATA 12,12,12,12,12,10,10,9,9,27, 
12,28,12,12,28,108.325 

7150 DATA 204,12,12,12,10,10,9,9,27,49 
,58,50,52,56,48,48,666 

7160 DATA 48,48,48,80,80,144,144,216,4 

8.56.48.51.62.48.48.48.1217 

7170 DATA 48,48,80,80,144,144,216,48,5 

6.48.48.56.54.51.48.48.1217 

7180 DATA 48,80,88,144,144,216,128,4,2 

,8,64,0,10,128,4,32,1092 

7190 DATA 2,4,8,4,0,2,1,4,0,128,0,5,0, 

2,0,64,224 

7200 DATA 1,2,4,2,0,2,0,0,0,0,2,0,1,0, 
128,0,142 

7210 DATA 0,1,2,1,0,0,0,0,0,1,0,0,0,0, 
0,0,5 

7220 DATA 0,0,8,0,8,0,0,0,0,0,0,O,0,0, 

0 , 0,0 

7230 DATA 0,0,0,0,3,0,6,7,0,7,3,7,6,0, 
0,159,198 

7240 DATA 8,159,O,159,28,159,52,159,73 

,159,78.0,78,0,78,8,1187 

7250 DATA 50,0,30,0,0,40,0,48,40,48,40 

,80,40,110,78,110,698 

7260 DATA 64,100,0,100,48,100,40,130,4 

0,255,192,48,12,3,51,75,1258 

7270 DATA 112,176,51,96,160,192,51,58, 

128,192,51,72,120,128,51,51,1689 

7280 DATA 91,154,51,112,160,192,51,51, 

136,192,51,24,50,72,50,32,1469 

7290 DATA 38,38,58,64,64,72,50,32,64,5 

6,50,18,69,64,50,18,797 

7300 DATA 18,18,50,58,72,48,50,24,72,5 
0,50,24,24,69,3,12,642 

7310 DATA 48,192,1,2,4,8,83,67,79,82,6 
9,58,32,48,48,48,369 

7320 DATA 48,48,48,32,32,32,32,32,32,3 
2,32,32,32,32,32,32,560 

7330 DATA 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,32,77,69,594 

7348 DATA 78,58,255,32,32,32,32,32,77, 

65,78,73,65,67,33,32,1041 

7350 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,66,89,603 

7360 DATA 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,82,73,67,638 

7370 DATA 75,32,77,69,83,83,78,69,82,2 

55,88,82,69,83,83,32,1332 

7380 DATA 49,32,79,82,32,50,32,32,32,3 

2,32,32,32,32,32,32,644 

7390 DATA 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,32,32,32,512 


7400 DATA 32,32,49,32,45,32,79,78,69,3 
2,88,76,65,89,69,82,941 

7410 OATA 32,32,32,32,32,32.50,32,45,3 

2,84,87,79,32,80,76,789 

7420 DATA 65,89,69,82,255,83,67,79,82, 

69,58,32,32,32,32,32,1158 

7430 DATA 32,32,32,32,72,73,45,83,67,7 

9,82,69,58,32,32,32,852 

7440 DATA 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,32,32,512 

7450 DATA 32,32,32,32,80,82,69,83,83,3 

2,65,78,89,32,75,69,965 

7460 DATA 89,32,84,79,32,67,79,78,84,7 

3,78,85,69,255,8,6,1190 

7470 DATA 52,101,199,167,54,162,176,52 

,49,155,138,27,59,59,1,49,1500 

7480 DATA 999 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 48,253,903,981,241,241,180,417 

,542,151,331,734,603,507,73,6125 

168 DATA 308,656,688.489,744,369,665,2 

16,207,936,618,222,898,866,848,8714 

5138 DATA 424,93,577,899,23,198,526,31 

8,418,894,649.567,704,616,248,7646 

5280 DATA 190,256,370,288,65,154,421,1 

00,880,242,90,244,229,455,274,4258 

5430 DATA 238,844,343,169,242,846,524, 

838,928,916,142,418,964,255,269,7936 

5588 DATA 284,314,537,80,580,883.612,5 

68,33,580,464,87,964,925,943,7774 

5730 DATA 88,132,305,138,145,571,261,8 

88,121,957,347,144,295,627,348,5367 

5880 DATA 404,413,926,899,574,585,247, 

168,595,123,408,344,612,567,385,7258 

6830 DATA 514,524,278,170,560,441,418, 

579,717,738,173,553,250,505,233,6645 

6180 DATA 120,208,443,558,265,261,492, 

58,314,27,201,453,572,88,6,4066 

6330 DATA 244,261,291,114,575,265,312. 

69,287,894,405,571,488,561,789,6126 

6480 DATA 519.36,227,324,341,104.961,3 

33,406,193,575,827,528,658,90,6114 

6630 DATA 863,474,801,994,960,530,477, 

549,241,257,779,745,233,41,519,8463 

6780 DATA 563,46,358,19,870,539,714,45 

1,803,935,227,950,229,356,281,7341 

6930 DATA 580,949,388,997,270,654,265, 

498,491,149,156,227,37,234,309,6188 

7080 DATA 29,48,626,632,407,484,227,39 

0,779,780,383,42,776,609,598,6802 

7230 DATA 864,492,66,835,558,20,651,34 

3,360,541,559,547,555,576,677,7636 

7380 DATA 577,520,690,637,616,653,518, 

781,711,74,900,6597 


32K Disk revision. 


10 REM MANIAC 32K DISK CHANGES 
150 ? "INSERT DISK WITH DOS, PRESS RET 
URN"; :DIM INS C1J :INPUT INS:OPEN »1,8,0 
,"D:AUTORUN.SYS" 

5080 DATA 255,255,6,64,127,79,169,60,1 

41,2,211,169,119,141,231,2,2031 

7480 DATA 10,0,11,0,38,64,224,2,225,2, 

38,64,0,0,0,0,678 

7498 DATA 999 
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HARVEY WALLBANGER 


16K Cassette 24K Disk 
by Charles Bachand 


Machine language games are the wave of the 
future. They are the games that attract you with their 
graphics, their speed, and their playability. They are 
also the games that sell! Since it is inherently more 
difficult to write games in machine language, and 
since the author of a machine language game has a lot 
of his time invested in it, it is understandable that he 
would rather sell it than give it away. Cold cash 
usually speaks loudly. Personally, I prefer the fame. 

So, for your enjoyment, here is Harvey 
Wallbanger with the full machine language source 
listing for the programers out there who like to 
modify games. 

Here is a very quick description of the game: 
Harvey Wallbanger is situated in the middle of a 
closed-in room. He may move freely within the 
room (that part of the screen within the four walls) 
but the room is constantly getting smaller (the walls 
are moving in on our rabbit friend.) Harvey is 
allowed to touch the left and right hand walls, but he 
will be killed if flattened by these two walls. He is 
under no circumstances allowed to touch the top and 
bottom walls, for they are highly electrified. 

All is not lost for Harvey, however. He does have 
his patented "Wallbanger Gun” to shoot at the 
walls and make them move away. His only problem 
is that the speed of the moving walls constantly 
increases with time. Numbers will appear on the 
screen that Harvey may collect. These numbers will 
be added to his score. The faster you collect the 
numbers, the bigger the final score. The numbers 
may not be within the confines of the now-receding 
wall and this will necessitate that Harvey shoot back 
a wall to access the numbers. Also, Harvey cannot 
shoot the numbers as this will kill off that particular 
number and generate a new one someplace else. 

As you read the Assembler listing for the game 
you will notice that there are no line numbers in the 
source code. This is due to the fact that I am using the 


ATARI Macro Assembler package. 

There are two BASIC programs before the 
machine language listing of Harvey Wallbanger. The 
first is a disk file maker program to get the game up 
and running faster than typing in the Assembler 
source listing. The second BASIC listing contains 
modifications to the first to make a cassette bootable 
machine language tape for the cassette-bound crowd. 

To make a disk version of Harvey Wallbanger, you 
need a formatted disk with a version of DOS II on it. 
Load the disk maker program into the computer’s 
RAM but do not run the program. Next, insert a 
formatted disk containing DOS II into the disk 
drive. Run the program. The computer will print out 
the line numbers of the DATA statements that the 
program is reading. These numbers start at 1000 and 
end at 2000 with increments of 10. After reading line 
2000 the disk drive will turn on and an AUTORUN- 
.SYS’ File will be written out to the disk. To play the 
game, simply remove all the cartridges and reboot 
with this new disk. 

To make a cassette version of this program 
requires a slightly different procedure. After the disk 
version of the program is in memory, add the 
changes for the cassette maker program and run it. 
The program will read through all the data and then 
the computer will beep twice. At this time insert a 
blank cassette tape in the program recorder and set it 
up for record by pressing the record and play 
buttons on the recorder. We now hit the return key 
as if we were doing a CSAVE and wait. The 
computer is now recording the machine language 
program onto the cassette tape. Once it is through 
you can boot the program by rewinding the tape, 
powering down the computer, and turning on the 
computer while holding down the start key. The 
computer will beep once, press play on the recorder, 
and press return on the computer. The program will 
load from the cassette and run automatically. □ 
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Basic listing. 


100 REM HARVEY MALLBANGER 
118 REM DISK MAKER PROGRAM 
120 REM 

130 DIM PROGSC1600J:PNTR=1 

140 LINE=990:TRAP 228 

158 LINE=LINE+10:FOR COUNT=l TO 15 

160 READ BYTE:PROGS(PNTRJ =CHRS <BYTE3 

170 PNTR=PNTR+1:TOTAL=TOTAL+BYTE 

180 NEXT COUNT:? "LINE:";LINE 

190 READ CHECKSUM 

200 IF CHECK5UM=T0TAL THEN 150 

210 ? "BAD CHECKSUM: LINE ";LINE:ST0P 

228 IF PEEK(195}=6 THEN 248 

238 ? "BAD DATA: LINE "JLINEJSTOP 

240 OPEN ttl, 8,0,"DlAUTORUN.SYS" 

250 PRINT ttl; PROGS; : END 

999 REM 

1000 DATA 255,255,8,52,216,57,76,71,52 
,112,112,112,112,71,7,1560 

1810 DATA 58,7,7,7,7,7,7,7,7,7,112,112 


1330 DATA 2,142,25,2,142,26,2,189,47,5 
2,48,7,157,92,58,60421 

1340 DATA 232,76,240,53,162,0,189,58,5 

2,48,7,157,151,58,232,62136 

1358 DATA 76,254,53,76,189,56,173,12,2 

08,141,236,57,173,4,208,64852 

1360 DATA 141,237,57,173,226,57,48,9,2 

06,226,57,74,9,160,141,65873 

1378 DATA 7,210,173,223,57,43,8,266,22 

3,57,9,192,141,1,210,67638 

1380 DATA 173,224,57.48,8,206,224,57,9 

,128,141,3,210,173,225,69524 

1398 DATA 57,238,225,57,238,225,57,238 

,225,57,141,4,210,173,246,71915 

1408 DATA 57,248,26,238,246,57,238,192 

,2,238,192,2,173,192,2,74010 

1418 DATA 10,10.10,141,2,210,169,136,1 

41,3,210,76,189,56,173,75546 

1420 DATA 229,57,240,13,206,229,57,173 

,219,57,201,28,240,3,206,77784 

1438 DATA 219,57,173,230,57,240,13,206 

,230,57,173,220,57,201,204,88041 

1440 DATA 240,3,238,220,57,173,231,57, 

248,16,286,231,57,173,221,82404 


,70,27,52,2054 

1020 DATA 65,3,52,242,225,226,226,233, 

244,243,218,211,192,243,227,4904 

1038 DATA 239,242,229,218,208,208,208, 

208,103,97,189,101,0,0,111,7185 

1040 DATA 118,101,114,128,112,114,101, 

115,115,0,8,115,116,97,114,8645 

1050 DATA 116,128,216,32,101,228,169,2 

11,141,35,52,169,3,141,245,10632 

1060 DATA 57,169,208,141,43,52,141,44, 

52,141,45,52,141,46,52,12016 

1070 DATA 169,60,141,228,57,141,26,2,3 

2,220,56,160,2,32,231,13573 

1088 DATA 56,136,16,258,169,3,141,48,2 

,169,52,141,49,2,169,14976 

1098 DATA 4,141,111,2,169,40,141,219,5 

7,169,196,141,220,57,169,16812 

1100 DATA 60,141,221,57,141,2,208,169, 

184,141,222,57,141,3,208,18767 

1110 DATA 169,122,141,217,57,169,55,14 

1,218,57,169,46,141,47,2,20518 

1128 DATA 169,3,141,29,208,169,48,141, 

7,212,169,158,141,198,2,22305 

1130 DATA 169,72,141,199,2,169,24,141, 

192,2,169,152,141,193,2,24073 

1140 DATA 169,52,141,194,2,169,196,141 

,195,2,169,1,141,233,57,25935 

1150 DATA 162,53,160,204,169,7,32,92,2 

28,169,137,141,38,2,169,27698 

1160 DATA 53,141,39,2,169,153,141,40,2 

,169,53,141,41,2,169,29013 

1170 DATA 1,141,25,2,169,0,141,38,208, 

141,246,57,141,227,57,30599 

1180 DATA 141,223,57,141,224,57,141,14 

,218,162,3,157,229,57,157,32572 

1198 DATA 247,57,157,251,57,157,255,57 

,157,3,58,202,16,238,170,34654 

1200 DATA 157,128,49,157,0,50,232,208, 

247,169,255,157,8,51,232,36746 

1218 DATA 208,250,232,138,41,1,170,189 

,219,57,74,8,205,11,212,38761 

1228 DATA 208,251,141,10,212,48,144,3, 

141,10,212,173,10,210,41,40567 

1230 DATA 246,141,26,208,160,10,169,0, 

157,15,208,141,10,212,173,42443 

1240 DATA 10,210,41,246,141,26,208,136 

,208,237,173,200,2,141,26,44448 

1250 DATA 288,173,245,57,240,8,173,246 

,57,16,3,76,99,52,173,46274 

1268 DATA 31,208,41,1,208,177,76,71,52 

,173,228,57,201,2,240,48040 

1270 DATA 3,206,228,57,169,1,141,25,2, 

96,173,228,57,141,26,49593 

1288 DATA 2,238,219,57,206,220,57,238, 

221,57,173,221,57,141,2,51702 

1290 DATA 208,206,222,57,173,222,57,14 

1,3,208,238,227,57,173,227,54121 

1300 DATA 57,41,1,170,189,207,57,141,0 

,210,169,8,141,223,57,55792 

1310 DATA 96,173,246,57,208,60,173,245 

,57,208,55,32,220,56,162,57848 

1320 DATA 0,142,1.210,142,3,210,142,5, 

218,142,7,210,142^24,59438 


1458 DATA 57,141,2,208,201,39,248,3,20 

6,221,57,173,232,57,240,84481 

1460 DATA 16,206,232,57,173,222,57,141 

,3,208,201,208,240,3,238,86686 

1470 DATA 222,57,169,0,133,77,141,234, 

57,141,235,57,173,120,2,88504 

1480 DATA 201,15,240,16,165,20,41,7,20 

8,18,169,16,141,2,210,89965 

1490 DATA 169,4,141,224,57,173,120,2,5 

6,233,5,10,170,165,20,91514 

1588 DATA 106,106,106,106,189,160,57,1 

44,3,189,182,57,133,128,189,93369 

1510 DATA 161,57,144,3,189,183,57,133, 

129,162,3,78,120,2,176,94966 

1528 DATA 16,189,209,57,248,3,141,234, 

57,189,213,57,248,3,141,96955 

1536 DATA 235,57,202,16,232,173,236,57 

,201,12,208,9,206,35,52,98886 

1540 DATA 206,245,57,238,246,57,41,4,2 

40,8,238,217,57,169,0,100909 

1550 DATA 141,234,57,173,236,57,41,8,2 

40,8,286,217,57,169,0,102753 

1568 DATA 141,234,57,24,173,219,57,105 

,4,74,205,218,57,144,9,104474 

1578 DATA 206,35,52,206,245,57,238,246 

,57,173,218,57,185,10,10,106389 

1586 DATA 205,220,57,144,9,206,35,52,2 

06,245,57,238,246,57,24.188390 

1598 DATA 173,217,57,109,234,57,141,21 

7,57,141,8,208,24,173,218,110416 

1608 DATA 57,109,235,57,141,218,57,170 

,160,0,177,128,157,0,58,112132 

1618 DATA 232,200,192,14,208,245,173,1 

32,2,285,233,57,141,233,57,114456 

1620 DATA 176,63,173,234,57,13,235,57, 

288,5,238,233,57,208,50,116463 

1638 DATA 169,64,141,225,57,169,4,141, 

5,210,238,244,57,173,244,118604 

1648 DATA 57,41,3,170,173,234,57,10,15 

7,255,57,173,235,57,10,120293 

1650 DATA 157,3,58,24,173,217,57,105,3 

,157,247,57,173,218,57,121999 

1660 DATA 105,8,157,251,57,169,0,170,1 

57,128,49,232,16,250,162,123910 

1678 DATA 3,189,255,57,29,3,58,240,127 

,189,251,57,24,125,3,125528 

1680 DATA 58,157,251,57,168,10,105,2,2 

85,220,57,144,12,32,208,127206 

1698 DATA 56,109,238,57,141,230,57,76, 

31,56,233,12,205,219,57,128975 

1708 DATA 176,9,32,208,56,109,229,57,1 

41,229,57,185,128,49,29,130669 

1710 DATA 34,57,153,128,49,185,129,49, 

29,34,57,153,129,49,189,132093 

1728 DATA 0,208,160,0,106,144,3,76,195 

,56,200,192,4,208,245,133890 

1730 DATA 24,189,247,57,125,255,57,157 

,247,57,157,4,288,285,222,136101 

1748 DATA 57,144,12,32,208,56,109,232, 

57,141,232,57,76,111,56,137681 

1750 DATA 233,6,205,221,57,176,9,32,20 

8,56,109,231,57,141,231,139653 

1760 DATA 57,282,48,3,76,232,55,162,3, 
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169,0,29,255,57,29,141630 

1770 DATA 3,58,202,16,247,201,0,208,3, 

141,5,210,160,0,78,142562 

1780 DATA 237,57,144,40,32,10,57,185,2 

38,57,72,32,231,56,104,144114 

1790 DATA 168,240,23,162,3,254,43,52,1 

89,43,52,201,218,208,8,145978 

1800 DATA 169,208,157,43,52,202,16,238 

,136,208,233,76,189,56,208,148161 

1810 DATA 192,3,208,206,141,30,208,76, 

98,228,138,72,32,10,57,149860 

1828 DATA 32,231,56,104,170,76,111,56, 

169,0,157,255,57,157,3,151494 

1838 DATA 58,24,169,8,96,162,200,169,0 

,157,6,58,202,208,250,153261 

1840 DATA 96,174,10,210,224,200,176,24 

9,189,7,58,208,244,173.10,155489 

1850 DATA 210,41,15,201,10,176,247,153 

,238,57,25,204,57,157,7,157287 

I860 DATA 58,138,153,241,57,96,169,0,1 

90,241,57,157,7,58,173,159082 

1878 DATA 10,210,41,31,9,16,141,6,210, 

169,30.141,226,57,96,160475 

1880 DATA 3,12,48,192,0,0,18,10,60,116 

,60,28,30,62,63,161177 

1890 DATA 126,0,0,11,10,60,116,60,28,3 
0,62,62,247,0,0,161989 

1980 DATA 72,80,60,46,60,56,120,124,25 

2,126,8,0,208,80,60,163333 

1910 DATA 46,60,56,120,124,124,239,0,0 

,66,36,68,20,60,24,164368 

1920 DATA 60,126,126,231,0,0,66,36,60, 

40,60,24,60,126,126,165509 

1936 DATA 231,0,0,68,36,68,20,60,24,60 

,126,254,7,0,8,166455 

1948 DATA 34,36,60,40,60,24,60,126,127 

,224,0,0,68,36,60,167410 

1950 DATA 60,60,24,68,102,254,7,0,0,34 

,36,60,60,60,24,168251 

I960 DATA 60,102,127,224,8,0,62,57,62, 
57,62,57,0,0,38,169159 

1970 DATA 57,38,57,38,57,0,8,110,57,13 

4,57,86,57,74,57,170038 

1986 DATA 74,57,74,57,0,8,58,57,50,57, 

58,57,0,0,122,170743 

1998 DATA 57,146,57,98,57,16,80,144,38 
,41,1,255,8,0,0,171733 

2000 DATA 0,1,255,226,2,227,2,0,52,0,0 
,0,0,0,0,172498 


CHECKSUM DATA 
(See pgs. 7-10) 

100 DATA 817,614,80,233,884,712,13,669 

,51,479,193,937,474,484,282,6922 

258 DATA 285,126,878,689,503,189,136,4 

69,980,631,894,11,31,76,166,5984 

1130 DATA 174,210,183,831,739,238,97,7 

4,168,918,186,183,768,726,894,6389 

1280 DATA 179,511,757,70,780,373,752,1 

99,13,939,969,269,952,906,17,7686 

1430 DATA 434,201,157,52,186,712,689,4 

07,32,226,188,945,940,196,259,5624 

1580 DATA 66,458,25,309,36,207,201,236 

,268,727,38,33,86,84,918,3676 

1730 DATA 517,19,72,666,632,192,203,38 

3,205,199,966,508,37,279,659,5537 

1880 DATA 368,320,886,663,821,129,399, 

358,305,643,246,341,428,5987 


108 REM HARVEY MALLBANGER MODS 
110 REM CASSETTE MAKER PROGRAM 
120 REM 

248 OPEN Ml,8,128,"C:" 

241 PROGS(1,1)-CHR${0} 

242 PR0G$C2,2J=CHR$C12J 

243 PROG$C3,3)=CHR$C250} 

244 PR0G$(4,4)=CHR$(51) 


Assembly listing. 


HARVEY UALLEANGER by Charles Bachand 


Copyright (C) 1982 ANALOG Magazine 


Operating System Equates 


HP0SP8 

= 

$D000 

jplayer 0 horizontal position 

M8PF 

= 

$0888 

jmissile 8/playfield collision 

HP0SP2 

= 

$D082 

jplayer 2 horizontal position 

HP0SP3 

= 

$0883 

,’player 3 horizontal position 

HP0SH8 

= 

$0084 

;missile 8 horizontal position 

P8PF 


$0884 

jplayer 8/playfield collisions 

P8PL 

= 

$D80C 

jplayer 0 to player collisions 

GRP2 


$D88F 

jplayer 2 graphics register- 

COLBK 

= 

$D81a 

jbackground color 

GRACTL 


$08 ID 

jgrapnics control register 

H1TCLR 

= 

$08 IE 

jcol1ision 'HIT' clear 

CONSOL 

= 

$08 IF 

;console switch port 

AUDF1 

= 

$0206 

jaudio -frequency 1 

AUDC1 

S 

$0281 

jaudio volume 1 

AUDF2 

= 

$0282 

jaudio frequency 2 

AUDC2 

r 

$0283 

jaudio volume 2 

AU0F3 

= 

$0284 

jaudio frequency 3 

AUDC3 

r 

$0285 

jaudio volume 3 

AUDF4 

= 

$0286 

jaudio frequency 4 

AUDC4 

= 

$D28? 

jaudio volume 4 

RANDOM 

= 

$028A 

jrandom number generator 

IRQEN 

— 

$028E 

;IRQ interrupt enable 

PNbASE 

= 

$0487 

;P/H base address 

USYNC 

r 

$D48A 

jwait for horizontal sync 

VCOUNT 

= 

$D40B 

jscan 1ine counter 

SETVBV 

= 

$E45C 

jset vertical blank vector 

X1TVBV 

= 

$E462 

jvertical blank exit vector 

S10INT 

= 

$E465 

jserial 1/0 initialization 

ATRACT 

= 

$0840 

jatract mode counter 


System Shadow Registers 


RTCL0K 

r 

$0012 

system clock 

CDTMV1 

= 

$8218 

system timer 1 

CDTMV2 

= 

$021A 

system timer- 2 

C0TMA1 

= 

$8226 

system timer 1 vector 

CDTMA2 

= 

$8223 

system timer 2 vector 

SDMCTL 

= 

$822F 

DMA control 

SDLSTL 

= 

$8238 

display 1ist pointer 

GPR10R 

= 

$826F 

qraphics priority 

STICK0 

= 

$8278 

joystick 1 

STRIG8 

= 

$0284 

trigger 1 

PC0LR9 

= 

$8200 

player 0 color 

PC0LR1 

= 

$82C1 

plaver 1 color 

PC0LR2 

= 

$8202 

player 2 color 

PC0LR3 

= 

$8203 

plaver 3 color 

C0L0R2 

= 

$8206 

playfield 2 color 

C0L0R3 

= 

$8207 

playfield 3 color 

C0L0R4 

- 

$8208 

background color 

? 

Page Zero Variables 


0RG 

$8088 

area not used by system 

PIC 

DS 

i. 

rabbit image pointer 
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1 



HARVEY CLD 


! 

Player 

/Missile RAM Space 

JSR 

3I0INT 

i 



LDA 

tt'3'f$A0 




STA 

RNUM 


ORG 

$3880 ;out of everyones way 

LDA 

#3 




STA 

LIVES 

PM 

DS 

$180 jfirst area not used 

LDA 

#'0'+$A8 

MISL 

DS 

$38 jMissile qraphics area 

STA 

SNUM 


DS 

$38 jplayer 0 qraphics area 

STA 

SNIH+1 

PLR1 

DS 

$38 jplayer 1 qraphics area 

STA 

3NUMf2 

PLR2 

DS 

$88 jplayer 2 graphics area 

STA 

SNUM+3 

PLR3 

DS 

$38 jplayer 3 graphics area 

MORE LDA 

068 




STA 

TIM23T ; 




STA 

CDTMV2 : 

4 

Program entry point 

JSR 

CLSCRN i 

1 



LDY 

#2 




INUMS JSR 

PUTNUM ; 


JMP 

HARVEY 

DEY 





BPL 

INUMS 

4 



LDA 

#DL&$FF i 

4 

Game di 

splay list 

STA 

SDLSTL | 

4 



LDA 

0DL/256 : 




STA 

SDLSTLf1 ; 

DL 

DB 

$78,$78 ;32 blank scan lines 

LDA 

#$84 : 


DB 

$70 ,$78 

STA 

GPRIQR i 


DB 

$47 jmode 2 line w/LMS bit 

LDA 

#48 i 


DU 

D1SP jaddress of game display 

STA 

BYLOC ; 


DB 

$07,$87 ;9 more mode 2 lines 

LDA 

#196 : 


DB 

$07,$37 

STA 

BYLOC+1 i 


DB 

$87,$07 

LDA 

#68 : 


DB 

$07,$0? 

STA 

BXLOC ; 


DB 

$87 

STA 

HP0SP2 : 


DB 

$70,$78 jskip 16 lines 

LDA 

#184 : 


DB 

$46 jmode i 1ime w/LMS bit 

STA 

BXLOC+1 i 


DU 

SLINE jaddress of score line 

STA 

HP0SP3 : 


DB 

$41 jvump on vertical blank 

LDA 

#122 : 


DU 

DL ;to start of display list 

STA 

FfcARX ; 




LDA 

#55 : 

4 



STA 

HARY i 

4 

Score 1 

1 ine data 

LDA 

#$2E i 

4 



STA 

SDMCTL ; 




LDA 

#3 ; 

SEINE 

DB 

/ R'f$A8 

STA 

GRACTL : 


DB 

J A'+$A8 

LDA 

#PM/'256 : 


DB 

'B'+$A0 

STA 

PMBASE ; 


DB 

-3'f$A0 

LDA 

#$96 i 


DB 

■Tt$Ae 

STA 

C0L0R2 ; 


DB 

'T'+$A8 

LDA 

#$48 : 


DB 

'S'+$A0 

STA 

COLORS i 


DB 

':' +$A8 

LDA 

#$13 

RNUM 

DB 

'3'+$A0 jnumber of rabbits 

STA 

PCOLR0 | 


DB 

'• ■ r$A8 

LDA 

#$98 i 


DB 

'S'+$A8 

STA 

PC0LR1 i 


DB 

'C / f$A8 

LDA 

#$34 


DB 

'0'+$A8 

STA 

PC0LR2 


DB 

'R'f$A0 

LDA 

#$C4 


DB 

'E'+$A8 

STA 

PC0LR3 : 


DB 

'V*$A0 

LDA 

#1 ; 

SNUM 

DB 

'0'+$A8 jscore display 

STA 

STRIGF : 


DB 

'■0't$A0 

LDX 

#VB/256 1 


DB 

'0't$AB 

LDY 

#VB&$FF i 


DB 

1 8'T$A0 

LDA 

#7 




JSR 

SETVBV ; 

? 



LDA 

#Tlt-$FF : 

4 

game over message 

STA 

C0TMA1 : 

1 



LDA 

#T 1/256 : 




STA 

CDTMA1+1i 

GOMSG 

DB 

'qame' 

LDA 

#T2«FF i 


DB 

0,0,'bv' 

STA 

CDTMA2 i 


DB 

• er' ,$88 

LDA 

#T 2/256 ; 




STA 

CDTMA2+1 ; 

PSMSG 

DB 

'pres' 

LDA 

#1 


DB 

■- s', 8,8 /s' 

STA 

CDTMVltl; 


DB 

'tart“,$88 

LDA 

#8 : 




STA 

HITCLR 




STA 

DIESU 

4 

Initialization Code 

STA 

TICTOC ; 


jclear decimal flaq 
;stop cassette 
jdisplay -for '3' 

;3 lives (display) 

;qet 3 Iives 
jinitialize counter 
jdisplay -for J 8' 
store in the -four 
;bytes used -for the 
!score display 
;area. 

[get 1 second count 
;set reset value 
set system timer #2 
clear game playfield 
display 3 numbers (8-2) 
put the number on screen 
decrement number counter 
done yet 9 No. 

Yes. low byte OL address 
DL pointer (low) 
high byte DL address 
[DL pointer (hiqh) 
set PF over PLAYER 
qraphics priority 
ifiiqh walI 
starting location 
low waif 

starting location 
left wall 
starting location 
hardware register- 
right wall 
starting location 
hardware register 
center screen-4 color clocks 
Harveys initial X position 
center P/M-8 bytes 
Harvey's initial Y position 
set P/M DMA on bits 
store in DMA control 
set P/M enable bits on 
store in graphics control 
qet high byte of P/M addr 
point hardware to it 
light blue color 
default color too dark 
pink color 
same here 
gold color 
set rabbit color 
iblue color 
[set missile 1 color 
red-oranqe color 
left wall color 
green color 
right wall color 
initialize trigger -flaq- 
to no shot fired 
address of VB (MSB) 
address of VB (LSB) 
deferred vertical blank opt 
set deferred Vblank vector 
addr of timer 1 routine LSB 
set timer 1 vector LSB 
addr of timer 1 routine MSB 
set timer 1 vector MSB 
addr of timer- 2 routine LSB 
set timer 2 vector LSB 
addr of timer 2 routine MSB 
set timer 2 vector MSB 
get 4.25 second count 
set system timer #1 
get a zero 

reset collision registers 
rabbit is al ive 
reset tictoc counter 
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STA 

V0L1 

start with no tictoc sound 


STA 

V0L2 

start with no shuttle noise 


STA 

IRQEN 

disable al1 IRQ interrupts 


LDX 

S3 

set index value to 3 

WINC2 

STA 

UINC ,X 

zero wal1 mover counter 


STA 

SHOTX.X 

zero X missile location 


STA 

SHOTY,X 

zero Y missile location 


STA 

SINCX,X 

zero X missile increment 


STA 

3INCY,X 

zero Y missile increment 


DEX 


next wall mover counter 


BPL 

UINCZ 

more walls/missiles? Yes. 


TAX 


set index to zero 

IMS 1 

STA 

MISL.X 

clear Missile area 


STA 

PLR8 ,X 

clear Player 0, 1 area 


INX 


do next byte 


BNE 

1M81 

done yet 7 No. 


LDA 

S$FF 

turn on pixels 

IM23 

STA 

PLR2,X 

set Player 2, 3 area 


INX 


do next byte 


SNE 

1M23 

done yet 7 No. 

5 

Main 

program used to generate the display. 


Actua 

1 game done 

entirely during display's 

5 

vertical blank processing routine. 

HBARS 

INX 


increment wall pointer 


TXA 


transfer pointer to Acc 


AND 

SI 

mask off lowest bit 


TAX 


put back in X register 


LDA 

BYLOC,X 

get wall vertical position 


LSR 

A 

divide by 2, odd=carry set 


PHP 


save carry flag 

VCHECK 

CMP 

VCOIINT 

compare with line counter 


BNE 

VCHECK 

not yeti 


STA 

USYNC 

start at new line 


PLP 


get carry flag back 


BCC 

ONELIN 

branch on even line number 


STA 

USYNC 

wait for next 1ine 

ONELIN 

LDA 

RANDOM 

random background color 


AND 

#*F6 

max I urn of 6 


STA 

COLBK 

for horizontal walls 


LDY 

010 

let's have 10 1ines of this 

LINES 

LDA 

SB 

get a zero for overlap 


STA 

GRP2.X 

background overlaps player 


STA 

USYNC 

wait for next 1ine 


LDA 

RANDOM 

random background color 


AND 

S$FS 

max 1 urn of 6 


STA 

COLBK 

for horizontal walIs 


DEY 


decrement line counter 


BNE 

LINES 

10 lines done yet 7 No! 


LDA 

COLORS 

get original background 


STA 

COLBK 

store in background 


LDA 

LIVES 

more 1ives 


BED 

HB1 

No. skip code 


LDA 

D1ESU 

a new 1ife? 


BPL 

HB1 

No. 


JMP 

MORE 

Yes. more lives 

HB1 

LDA 

CONSOL 

check for start switch 


AND 

t»81 

mask off bit 


BNE 

HBARS 

start 7 No. 


JMP 

HARVEY 

restart game 

! 

! 

System timer SI 

nterrupt handler. 

5 

Used to speed up walls every 4.25 seconds. 

T1 

LDA 

T1M2ST 

get wall speed 


CMP 

02 

must stop at two 


BEQ 

TIM! 

is it two? Yes, 


DEC 

TIM2ST 

No, then decrement 

T1M1 

LDA 

SI 

get 4.25 second cycle time 


STA 

CDTMVl+1 

reset timer til 


RTS 


return 


System timer 02 interrupt handler. 

Used to move walls and initiate wall noise. 


LDA 

TIM2ST 

;get timer 02 value 

STA 

CDTMV2 

;reset timer 02 

INC 

BYLOC 

;move top wall down 

DEC 

BYLOC+1 

;move bottom wall up 

INC 

BXLOC 

jchange left wal1 location 

LDA 

BXLQC 

;get hew location 

STA 

HP0SP2 

;change player 2 position 

DEC 

BXLOC+1 

jchange right wall location 

LDA 

BXLOC+1 

jget new location 

STA 

HP0SP3 

jchange player 3 position 

INC 

TICTOC 

;increment TIC-TOC counter 

LDA 

TICTOC 

;get counter value 

AND 

tfl 

;just need 8 or 1 value 

TAX 


juse for index 

LDA 

METRO ,X 

;get sound frequency 

STA 

AUDF1 

jchange frequency 

LDA 

0*03 

jget volume value 

STA 

V0L1 

;save in volume counter 

RTS 


jreturn 

Deferred vertical blank processing routine. 

Here 

is where all the actual game playing 

takes place. This could be quite long. 


VB 

LDA 

DIESU 

;rabbit dying? 


BNE 

VB0 

;He sure is. 


LDA 

LIVES 

jany lives left? 


BNE 

VB8 

(There sure are. 


JSR 

CLSCRN 

jclear screen of numbers 


LDX 

00 

jinitialize X with zero 


STX 

AUDC1 

jstop tictoc sound 


SIX 

AUDC2 

;stop dying sound 


STX 

AUDC3 

jstop gun noise 


STX 

AUDC4 

jstop number sound 


STX 

CDTMV1 

jshut off the two timers 


STX 

CDTMV1+] 

jditto. 


STX 

CDTMV2 

jsame here. 

GOPRT 

LDA 

GONSG.X 

jget a character 


BMI 

PSINIT 

jend of scrinq? Yes. 


STA 

D1SP+85,X:put on screen 


INX 


jincrement index 


JMP 

GOPRT 

jcontinue 

PSINIT 

LDX 

00 

jzero the index 

PSPRT 

LDA 

PSMSG,X 

jget another character 


ail 

VBX1T 

jend of string? Yes. 


STA 

DISP+144 

,Xjput on screen 


INX 


;increment index 


JMP 

PSPRT 

jcontinue 

V6XIT 

JMP 

VBX 

jexit vertical blank 

VB0 

LDA 

P0PL 

jplayer/player collisions 


STA 

P8PLT 

jstore in temp variable 


LDA 

P0PF 

jplayer to PF collisions 


STA 

P8PFT 

jstore in temp variable 


LDA 

NSOUND 

(treasure sound counter 


an 

NOSND 

jend of sound? Yes. 


DEC 

NSOUND 

jdecrement volume 


LSR 

A 

jdivide volume by 2 


ORA 

0JA0 

jadd pure tone 


STA 

AUDC4 

jchange volume 

NOSND 

LDA 

V0L1 

jqet tictoc volume value 


air 

3ND2 

;if <0 we produce no sound 


DEC 

V0L1 

jdecrement volume value 


ORA 

0*C0 

jmask on the distortion 


STA 

AUDC1 

jgenerate the tictoc sound 

3ND2 

LDA 

V0L2 

jget shuffle volume 


BMI 

SND3 

jif <0 we produce no sound 


DEC¬ 

V0L2 

jdecrement volume value 


ORA 

«80 

jmask on the distortion 


STA 

AUDC2 

jgenerate the shuffle noise 

SND3 

LDA 

FREQ3 

jget shot frequency 
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INC 

FREG3 


INC 

FREQ3 


INC 

FREQ3 


STA 

AUDF3 


LDA 

DIESW 


BEQ 

TM0V1 


INC 

DIESW 


INC 

PC0LR8 


INC 

PCOLR0 


LDA 

PC0LR8 


ASL 

A 


ASL 

A 


ASL 

A 


STA 

AUDF2 


LDA 

#$38 


STA 

AUDC2 


JMP 

VBX 

TN0V1 

LDA 

WING 


BEQ 

TM0V2 


DEC 

U1NC 


LDA 

BYLOC 


CMP 

#28 


BEQ 

TW0V2 


DEC 

BYLOC 

TM0V2 

LDA 

UINC+i 


BEU 

TM0V3 


DEC 

UINC+1 


LDA 

BYLOC+1 


CMP 

#204 


BEQ 

TMQU3 


INC 

BYLOC+1 

TN0V3 

LDA 

MINC+2 


BEQ 

TM0V4 


DEC 

U1NC+2 


LDA 

BXLOC 


STA 

HP0SP2 


CMP 

#3? 


BEQ 

TM0V4 


DEC 

BXLOC 

TM0V4 

LDA 

UINC+3 


BEQ 

TMOVX 


DEC 

W1NC+3 


LDA 

BXLOC+1 


STA 

HP0SP3 


CMP 

#288 


BEQ 

TMOVX 


INC 

BXLOC+1 

TM0VX 

LDA 

#8 


STA 

ATRACT 


STA 

XTEMP 


STA 

YTEMP 


LDA 

ST1CK8 


CMP 

#$8F 


BEQ 

COTTER 


LDA 

RTCLOK+2 


AND 

#$07 


BNE 

CENTER 


LDA 

#$I0 


STA 

AUDF2 


LDA 

#$04 


STA 

U0L2 

CENTER 

LDA 

STICKS 


SEC 



SBC 

#5 


ASL 

A 


TAX 



LDA 

RTCLOK+2 


ROR 

A 


ROR 

A 


ROR 

A 


ROR 

A 


LDA 

PK1 ,X 


BCC 

P1CMVL 


LDA 

PK2,X 

PICHVL 

STA 

PIC 


LDA 

PKl+l.X 


increment shot frequency 
do it again 
and one last time 
change frequency (lower) 
is rabbit dying 
No. continue 

res. 2 second die period 
change rabbit colors 
again 

get number 

*2 

*4 

*3 

use as freauency 
get distortion 
make sound 
exit vertical blank 

check push wall up 
push up? No. 

decrement push up counter 

get top walI location 

compare with top of screen 

at top? fes. 

move wal1 up 

check push wail down 

push down? No. 

decrement push down counter 

get bottom wal1 location 

compare bottom of screen 

at Bottom? Yes. 

move wall down 

check push wall left 

push left? No. 

decrement push left counter 

get left walI position 

move left wall player 

check for left wall limit 

at 1imit? Yes. 

move wall left 

check push wall right 

push right? No. 

decrement push right counter 

qet right walI position 

move right wall player 

check for right walI limit 

at 1 imit? Yes. 

move wall right 

get a zero 

poke out atract mode 
zero rabbit X increment 
zero rabbit Y increment 
get joystick value 
at center position? 

Yes. skip code 

get real time clock LSB 

at 1/7.5 second mark? 

No. skip code 
get shutfIe frequency 
set frequency register 
get volume value" 
set shuffle volume 
get joystick value 
set carry for subtract 
values 5-15 only 
5-15 new 8,2,4,... 
use for index 
get real time clock LSB 
divide by 2 
divide by 4 
divide by 8 

carry set/reset at .13 sec 
get rabbit picture LSB 
other pic at .13 sec? No. 
get alternate picture LSB 
store LSB of pic address 
get rabbit picture MSB 



BCC 

PICMVH 


LDA 

PK2+1.X 

PICMVH 

STA 

PIC+1 


LDX 

#3 

CHKSTK 

L3R 

STICKS 


BCS 

CHKNXT 


LDA 

STBLX.X 


BEQ 

CHK0 


STA 

XTEMP 

CHK0 

LDA 

STBLY.X 


BEQ 

CHKNXT 


STA 

YTEMP 

CHKNXT 

DEX 



BPL 

CHKSTK 


LDA 

P8PLT 


CMP 

#$0C 


BNE 

NOSGUE 


DEC 

RNUM 


DEC 

LIVES 


INC 

DIESW 

NOSGUE 

AND 

#$84 


BEQ 

BMPRT 


INC 

HARX 


LDA 

#0 


STA 

XTEMP 

BMPRT 

LDA 

P0PLT 


AND 

#$08 


BEQ 

BMPUP 


DEC 

MRX 


LDA 

#0 


STA 

XTEMP 

BMPUP 

CLC 



LDA 

BYLOC 


ADC 

#4 


LSR 

A 


CMP 

HARY 


BCC 

BMPDN 


DEC 

RNUM 


DEC 

LIVES 


INC 

DIESW 

BMPDN 

LDA 

HARY 


ADC 

#10 


ASL 

A 


CMP 

BYLOC+1 


BCC 

NOBMP 


DEC 

RNUM 


DEC 

LIVES 


INC 

DIESW 

NOBMP 

CLC 



LDA 

MRX 


ADC 

.XTEMP 


STA 

HARX 


STA 

HPOSP0 


CLC 



LDA 

HARY 


ADC 

YTEMP 


STA 

HARY 


TAX 



LDY 

#0 

MOVHAR 

LDA 

(PIC),Y 


STA 

PLR0,X 


I NX 



INY 



CPY 

#14 


BNE 

MOVHAR 


LDA 

STRIG0 


CMP 

STRI6F 


STA 

STRIGF 


BCS 

NOFIRE 


LDA 

XTEMP 


ORA 

YTEMP 


BNE 

FIREGN 


INC 

STRIGF 


BNE 

N0F1RE 

FIREGN 

LDA 

#$40 


STA 

FREQ3 


LDA 

#$84 


other pic at .13 sec? No. 
get alternate picture MSB 
store MSB of pic address 
count 3 downto 8 
shift bit into carry 
correct direction? No. 
check X movement direction 
movement allowed? No. 
store X movement value 
check Y movement direction 
movement allowed? No. 
store Y movement value 
do next stick position 
done yet 7 No. 
get player 8 col 1ision 
left/right squeze? 

No. Check inavdual walls 
decrement 1ives display 
decrement lines counter 
the rabbit has died switch 
check left walI col Iision 
hit left wall? No. 

Yes. Move rabbit to right 
get zero value 
stop rabbit X movement 
get player 0 collision 
check right walI col 1ision 
hit right wal1? No. 

Yes. Move rabbit to left 
get zero value 
stop rabbit X movement 
clear carry for add 
top wall Y location 
offset by 4 
divide by 2 

compare rabbit Y location 
hit top wall? No. 
decrement 1ives display 
decrement lines counter 
the rabbit has died switch 
get rabbit Y location 
offset by 10 
multiply by 2 
compare bottom wal1 Y 
hit bottom wall 9 No. 
decrement 1ives display 
decrement lines counter 
the rabbit has died switch 
clear carry for add 
get rabbit X position 
add X increment 
save new rabbit X position 
position rabbit player 8 
clear carry for add 
get rabbit Y position 
add Y increment 
save new rabbit Y position 
use position as index 
initialize picture counter 
get rabbit picture byte 
store in player 8 area 
increment player pointer 
increment picture pointer 
check for end of picture 
at end? No. 
get trigger value 
compare with trigger flag 
save new triqgertlag 
shot fired? No. 
rabbit X increment 
OR rabbit Y increment 
rabbit stationary 9 No. 
set trigger flag to 1 
skip fire routine 
initialize frequency 
zero audio freq 3 
shot volume + distortion 
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STA AUDC3 

INC SHOTS 

LDA SHOTS 

AND US 

TAX 

LDA XTEMP 

ASL A 

STA SINCX.X 

LDA YTEMP 

ASL A 

STA SINCY,X 

CLC 

LDA MRX 

ADC #3 

STA SHOTX.X 

LDA HARY 

ADC #8 

STA SHOTY.X 

NOFIRE LDA #8 

TAX 

ERASES STA MISL.X 

I NX 

BPL ERASES 

LDX #3 

PLOTS LDA SINCX.X 

ORA SINCY,X 

BEQ NOPLOT 

LDA SHOTY.X 

CLC 

aw: SINCY ,x 

STA SHOTY.X 

TAY 

ASL A 

ADC #2 

CMP BYLQC+1 

BCC HITTP 

JSR ZINCXY 

ADC WINC+1 

STA U1NC+1 

JMP PLOTNH 

HITTP SBC #12 

CMP BYLOC 

BCS PLOTNH 

JSR ZINCXY 

ADC UINC 

STA UINC 

PLOTNH LDA MISL.Y 

ORA MISMSK.X 

STA MISL.Y 

LDA MISL+l.Y 

ORA MI SISK ,X 

STA MISL+1,Y 

LDA M8PF.X 

LDY #8 

MHPF ROR A 

BCC MHPFB 

JMP MH1T 

MHPF8 INY 

CPY #4 

BNE MHPF 

CLC 

LDA SHOTX.X 

ADC SINCX.X 

STA SHOTX.X 

STA HPOSM8.X 

CMP BXLOC+i 

BCC HITLF 

JSR ZINCXY 

ADC UINC+3 

STA UINC+3 

JMP NOPLOT 

HITLF SBC #6 

CMP BXLOC 

BCS NOPLOT 

JSR ZINCXY 


enable volume 3 
[increment shot pointer 
get shot pointer 
[make it 0-3 only 
[use pointer -for index 
iget rabbit X increment 
[make shot twice as Fast 
[set missile X increment 
get rabbit Y increment 
[make shot twice as Fast 
;set missile Y increment 
[dear carry For add 
iget rabbit X position 
[move to center X OF rabbit 
[shot initial X position 
[get rabbit Y position 
[move to center Y oF rabbit 
[shot initial Y position 
[zero accumulator 
jzero X index 
zero all missiles 
next missile byte 
done? No. 

;count 3 downto 8 
;oet missile X increment 
[OR missile Y increment 
[any movement? No. 

[missile Y position 
[dear carry For add 
[add Y increment 
store new Y position 
[Y position now index 
[multiply by 2 
[oFFset For compare 
compare with bottom wall 
[hit bottom wall? No. 

[zero missile increments 
[add 8 to walI increment 
[new bottom wall increment 
[continue 

oFFset For bottom side 
compare with top wall 
hit top wall? No. 
zero missile increments 
add 8 to wall increment 
new top walI increment 
get missile byte 
OR missile mask 
store new byte 
qet next missile byte 
OR missile mask 
store new next byte 
missile/playField collision 
init Y register 
collision? 

No. No. No. 

Yes. Yes. Yes. 
try next bit 
any more bits? 

Certainly! Yuk. Yuk. 
dear carry For add 
get missile X position 
add X increment 
store new X position 
position missile 
compare missile with wall 
hit riqht wail 9 No. 
zero missile increments 
add 8 to wall increment 
new wall increment 
continue 

[oFFset For right side 
compare with TeFt wall 
[hit leFt wall 9 No. 

[zero missile increments 



ADC 

UINC+2 

add 8 to wal1 increment 


STA 

UINC+2 

new wall increment 

NOPLOT 

DEX 


next missile 


BMI 

N0PL1 

missiles done? Yes. 


JMP 

PLOTS 

continue loop 

N0PL1 

LDX 

#3 

set up pointer 


LDA 

#8 

zero accumulator 

CHKMIS 

ORA 

SINCX.X 

OR in X increments 


ORA 

SINCY.X 

OR in Y increments 


DEX 


decrement pointer 


BPL 

CHKMIS 

at end? No. 


CMP 

#0 

check shot increments 


BNE 

NOSSND 

any increments? Yes. 


STA 

AUDC3 

end shot sound 

NOSSND 

LDY 

#0 

initialize Y index 

MISHIT 

LSR 

P0PFT 

shiFt col 1ision to carry 


BCC 

MH1 

collision w/number? No. 


JSR 

ERANUM 

erase the number 


LDA 

VTBL.Y 

get value oF number 


PM 


save on stack 


JSR 

PUTNUM 

put out a new number 


PLA 


get old number 


TAY 


use as counter value 


BE9 

sex 

was it zero? Yes. 

SCORER 

LDX 

#3 

point to score low digit 

SCI 

INC 

SNUM.X 

increment digit 


LDA 

SNUM.X 

get digit 


CMP 

#'?'+«! 

past ATASCII '9'+co!or? 


BNE 

SCY 

No. continue 


LDA 

#'0-+SA8 

reset diqit 


STA 

SNUM.X 

change score display 


DEX 


point to next diqit 


BPL 

SCI 

score rolled over? No. 

SCY 

DEY 


decrement value 


BNE 

SCORER 

scoring done? No. 

sex 

JMP 

UBX 

exit routine 

MH1 

INY 


check next color digit 


CPY 

#3 

done 0-2 yet? 


BNE 

MISHIT ;No. continue 

m 

STA 

HITCLR jclear collision registers 


JMP 

XITVBU 

exit deterred vertical blank 

MH1T 

TXA 


save X register 


PM 


on stack 


JSR 

ERANUM 

erase number hit and 


JSR 

PUTNUM 

put a new one on screen 


PLA 


pull X register 


TAX 


Fran stack 


JMP 

NOPLOT 

continue on 


Commonly used subroutines 


; Clear missile display area 

ZINCXY LDA #8 ;get zero value 

STA SINCX.X jzero missile X increment 

STA SINCY,X jzero missile Y increment 

CLC jclear carry For add 

LDA #8 jget value For add 
RTS ;we return to the program 

; Clear the game playField 

CLSCRN LDX #200 jset 0-199 bytes 

LDA #8 ;to zero 

CL0 STA DISP-1.Xjstore in display 
DEX jcount down 

BNE CL0 jpast zero yet? No. 

RTS jreturn to program 

; Put random number From 0-9 on screen at 

; a randan location 8-199 

PUTNUM LDX RANDOM jget random number 












VOL. 


PN8 


Ef^NLM 


MISMSK 


HARLF1 


HARLF2 


HARRT1 


HARRT2 


HARFR1 


HARFR2 


HARDN1 
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CPX 

8288 

is number < 200? 


DB 

BCS 

PUTNUM 

No. try another 


DB 

IDA 

D1SP,X 

see iF space is occupied 

HARDN2 

DB 

BNE 

PUTNUM 

Yes, try again 


DB 

LDA 

RANDOM 

qet another random number 


DB 

AND 

#$8F 

limit it to 0-15 


DB 

CMP 

818 

is number < 18? 


DB 

BCS 

PN8 

No. try another 


DB 

STA 

VT8L,Y 

save number 

HARUP1 

DB 

ORA 

CTBL.Y 

OR with color 


DB 

STA 

D1SP.X 

put number on screen 


DB 

TXA 


move screen oFFset to A 


DB 

STA 

ATBL,Y 

save screen oFFset 


DB 

RTS 


end oF routine 


DB 




HARUP2 

DB 

Erase number From screen 


DB 





DB 

LDA 

80 

get zero For blank 


DB 

LDX 

ATBL,Y 

get 8 position on screen 


DB 

STA 

DISP,X 

blank number on screen 


DB 

LDA 

RANDOM 

get random number 


DB 

AND 

8$1F 

mask oFF high bits 



ORA 

l$10 

make it $18-$1F 

PK1 

DU 

STA 

AUDF4 

use as sound Frequency 


DU 

LDA 

838 

initialize- 


DU 

STA 

NSOUND 

volume counter 


DU 

RTS 


end oF routine 


DU 





DU 





DU 

Prooram tables and constants 


DU 





DU 





DU 

D8 

$03 

imissile 8 mask 


DU 

DB 

$0C 

missile 1 mask 



DB 

$38 

{missile 2 mask 

PK2 

DU 

DB 

$C8 

missile 3 mask 


DU 





DU 

DB 

0,0 

;leFt view 81 


DU 

DB 

$12,$0A 



DU 

DB 

$3C,$74 



DU 

DB 

$3C,$1C 



DU 

DB 

$1E,$3E 



DU 

DB 

$3F,$7E 



DU 

DB 

0,8 

; 1 eFt view 12 


DU 

DB 

$0B,$0A 



DU 

DB 

$3C,$74 




DB 

$3C,$1C 


CTBL 

DB 

DB 

$1E,$3E 



DB 

DB 

$3E,$F7 


METRO 

DB 

DB 

0,0 

{right view #1 

STBLX 

DB 

DB 

$48,$50 



DB 

DB 

$3C,$2E 


STBLY 

DB 

DB 

$3C,$38 



DB 

DB 

$73,$7C 




DB 

$FC,$7E 



— 

DB 

0,0 

{right view 82 


Var 

DB 

$08,$50 



— 

DB 

$3C,$2E 




DB 

$3C,$38 


HARX 

DS 

DB 

$78,$7C 


HARY 

DS 

DB 

$7C,$EF 


BYLOC 

DS 

DB 

0,0 

{Front view 81 

BXLOC 

DS 

DB 

$42,$24 


V0L1 

DS 

DB 

$3C,$14 


VOL 2 

DS 

DB 

$3C,$18 


FREQ3 

DS 

DB 

$3C,$7E 


NSOUND 

DS 

DB 

$7E,$E7 


TICTOC 

DS 

DB 

0,8 

{Front view 82 

TIM2ST 

DS 

DB 

$42,$24 


U1NC 

DS 

DB 

$3C,$23 


STRIGF 

DS 

DB 

$3C,$18 


XTEMP 

DS 

DB 

$3C,$7E 


YTEMP 

DS 

DB 

$7E,$E7 


P8PLT 

DS 

DB 

0,0 

{down view 81 

P0PFT 

DS 

DB 

$44,$24 


VTBL 

DS 

DB 

$3C,$14 


ATBL 

DS 

DB 

$3C,$18 


SHOTS 

DS 


$3C,$7E 

$FE,$07 

8.8 {down view 82 
$22,$24 

$3C,$23 

$3C,$18 

$3C,$7E 

$7F,$E8 

6.8 ;up view II 
$44,$24 

$3C,$3C 

$3C,$18 

$3C,$4<S 

$FE,$87 

0,8 ;up view 12 

$22,$24 
$3C,$3C 
$3C,$18 
$3C,$S3 
$7F,$E0 
0,0 

HARRT1 {rabbit pictures set 1 
HARRT1 
HARRT1 
8 

HARLF1 

HARLF1 

HARLF1 

8 

HARDN1 

MRUP1 

HARFR1 


{rabbit pictures set 2 


HARRT2 

HARRT2 

HARRT2 

0 

HARLF2 

HARLF2 

HARLF2 

8 

HARDN2 

HARUP2 

HARFR2 


$10,$50 ;col or oFFset table 
$90 

38.41 {tictoc tones 
$01,$FF {joystick X increments 
$00 $06 

$08l$08 {joystick Y increments 
$81,$FF 


Variable Storage Area 


Harvey's X locatin 
Harvey's Y location 
horizontal wall Y locations 
vertical wall X locations 
tic toe volume 
shuFFIe volume 
shot Frequency 
pick number up sound 
tictoc sound counter 
wall speed timer 
wall mover counters 
trigger compare register 
temporary variable' 
temporary variable 
player 0 collision shadow 
PL to PF collision shadow 
value oF I's on screen 
screen oFFset to #'s 
shot enable counter 
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LIVES 

DS 

1 

D1ESU 

DS 

1 

SHOTX 

DS 

4 

SHOTY 

DS 

4 

S1NCX 

DS 

4 

SINCY 

DS 

4 

DISP 

DS 

289 


END 

MRVEY 


;number ot lives left 
jrabbit dying switch 
;missile X location 
jmissile Y location 
jmissile X increment 
jmissile Y increment 
jscreen display area 




Cube Demo 


5 REM *** CUBE 'FILL 1 GRAPHICS DEMO ** 
* 

10 GRAPHICS 7+16:SETCOLOR 0,8,12:SETCO 
LOR 1,3,2:SET COLOR 2,7,4:HUE=1 
20 FOR CUBE=1 TO 15:RAND=RND(0}:MAX=15 
+15*RAND:MIN=5+5*RAND:PX=2+RND (0)*116: 
PY=2+RND(0)*52:REM *** 15 CUBES *** 

30 X1=PX+MIN:X2=PX+MAX:X3=X2+MIN:Y1=PY 
+MIH:Y2=PY+MAX:Y3-Y2+MIH:REM *** CUBE 
COORDS *** 

35 COLOR 0:PLOT X3+1,Y3+1:DRAMTO X3+1, 
Y1:DRAMTO X2,PY-l:DRAMT0 PX“1,PY-1 

36 DRAHTO PX~1,Y2:DRAMTO XI,Y3+1:DRAMT 
0 X3 + 1,Y3+1 

48 FOR N=1 TO MIN:PLOT PX+N,PY+N:DRAMT 
0 X2 + N,PY+H:PLOT PX+N,PY+N:DRAHTO PX+N 
Y2+N:NEXT N 

58 FOR N=1 TO MAX+1:PLOT XI,Yl+N:DRAMT 
0 X3,Yl+N:NEXT N:REM *** 35-50 ERASE C 
UBE AREA *** 

55 REM *** NOH DRAM « FILL CUBE SIDES 

WWW 

60 COLOR HUE:PLOT X3,Y3:DRAHT0 X3,Y1:D 
RAMTO XI,Y1:POSITION X1,Y3:P0KE 765,HU 
E:XIO 18,tt6,0,0,"S:":GOSUB 20O 
78 COLOR HUE:PLOT X3,Y1:DRAHT0 X2,PY:D 
RAMTO PX,PY:POSITION Xl,Yl:POKE 765,HU 
E:XIO 18,tt6,0,0,"S:":GOSUB 280 
88 COLOR HUE:PLOT Xl,Y3:DRAHTO X1,Y1:D 
RAMTO PX,PY:POSITION PX,Y2:P0KE 765,HU 
E:XIO 18,86,0,0,"S:" 

90 PLOT XI,Y3:DRAMTO X1,Y2:DRAMT0 PX,Y 
2:POSITION XI,Y3:XIO 18,86,8,0, M S:":NE 
XT CUBE 

100 REM *** ROTATE COLORS A HHILE *** 
110 FOR ROT=l TO 580:T=PEEKC708J:POKE 
788,PEEK t709>:POKE 709,PEEKC710J:POKE 
710,T 

120 FOR DELAY=1 TO 20:NEXT DELAY:NEXT 
ROT:RUN :REM *** DO IT AGAIN! *** 

200 HUE=HUE+l:IF HUE=4 THEN HUE=1 
210 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 991,794,593,376,682,878,339,414 

,60,955,100,752,929,902,845,9610 

120 DATA 3,319,586,908 
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FILL ER UP II 


16K Cassette 24K Disk 
by Tom Hudson 


If you’ve ever typed in a game program from a 
computer magazine hoping for an arcade-quality 
masterpiece, you’ve probably been disappointed. 
Games written in BASIC are usually too slow to 
handle the complex graphics and game logic neces¬ 
sary for an entertaining arcade-style game. In an 
effort to satisfy those avid video-gamers out there, I 
have written Fill 'Er Up!, a public-domain assembly- 
language game. 

Typing the program. 

Before tackling the program listings accompany¬ 
ing this article, let’s look at them and see what they 
do. 

Listing 1 is the main data and data checking 
routine. This listing is used to create both tape and 
disk versions of Fill 'Er Up. The data that makes up 
the Fill 'Er Up program listed in hexadecimal (base 
16). The program is listed this way so that it will run 
with 16K cassette systems. I realize that those DATA 
statements aren’t fun to type in, but they are a neces¬ 
sary evil. 

Listing 2 should be added to Listing 1 if you are 
using an ATARI cassette recorder. 

Listing 3 should be added to Listing 1 if you are 
using a disk drive. 

Listing 4 is the assembly-language source code 
for Fill 'Er Up, created with the ATARI Macro 
Assembler editor. You DO NOT have to type in this 
listing to play the game! It is provided so that readers 
interested in assembly language can see how the pro¬ 
gram works. 

Follow the instructions to make either a cassette 
or disk version of Fill 'Er Up. 

Cassette instructions. 

1. Type Listing 1 into your computer. Use the 
C:CHECK program to check the accuracy of 
your typing. 


2. With Listing 1 in your computer, type in List¬ 
ing 2. This operation will merge the two listings. 
Make sure the lines were entered correctly, then 
CSAVE the new program. 

3. Type RUN and press RETURN. The program 
will begin printing the line numbers of the DATA 
statements as it reads and checks each one. It will 
alert you if it finds any problems in the DATA. 
Correct any problems in the data lines and re- 
RUN the program until all the DATA is checked 
and correct. 

4. When all the data lines are correct, the program 
will ask you to "READY CASSETTE AND 
PRESS RETURN.” Place a blank tape in your 
recorder, press RECORD and PLAY simultane¬ 
ously and press ready. When finished, the 
BASIC "READY” prompt will appear. If you 
have not CSAVEd the BASIC program, do so at 
this point. You may not need this program again, 
but it’s good to have if you ever need another 
copy of the game. 

5. To play Fill 'Er Up, rewind the tape created by 
the BASIC program to the beginning. Turn your 
computer OFF and remove any cartridges. Press 
computer OFF and remove any cartridges. Press 
PLAY on the recorder, then turn your computer 
ON while pressing the START key. The com¬ 
puter will BEEP once. Press RETURN, and Fill 
'Er Up will load and run automatically. 

Disk instructions. 

1. Type Listing 1 into your computer. Use 
D:CFIECK to verify your typing. 

2. After Listing 1 is correctly typed into your 
computer, type in Listing 3 . The lines will auto¬ 
matically merge with Listing 1 . It’s a good idea to 
SAVE the whole BASIC program at this time. 
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3. Type RUN and press RETURN. The program 
will begin verifying the DATA lines, printing the 
line numbers as it checks each one. It will alert 
you if any errors are located in the data. Fix any 
incorrect lines and re-RUN the program until all 
errors are eliminated. 

4. When all the DATA lines are checked, the 
program will tell you to "INSERT DISK WITH 
DOS, PRESS RETURN.” Place a disk with DOS 
in drive 1 and press RETURN. The program will 
write an AUTORUN.SYS file to your disk. This 
file contains the Fill 'Er Up game. When finished, 
the BASIC "READY” prompt will appear. Make 
sure the BASIC program has been SAVED before 
continuing. 

5. To play Fill 'Er Up, place the disk containing the 
AUTORUN.SYS file in drive 1. Turn the com¬ 
puter OFF, remove any cartridges and turn the 
computer back ON. Fill 'Er Up will load and run 
automatically. 

Game description. 

You have been assigned to build a series of water 
reservoirs in uncharted territory. Unfortunately, an 
electrified starfish (don’t boggle; read on) is patroll¬ 
ing the area. Using your joystick, you must 
manuever yourself around on the screen, building 
walls to hold the water, while avoiding the starfish. 

You start out on the white border surrounding the 
planned resevoir area. You may move around on 
these white walls by moving your joystick in the 
desired direction. You can build a reservoir wall by 
moving into the black "uncharted” area while 
pressing your joystick button. The walls you make 
can be any length, and must be terminated at a white 
wall. When you finish a wall by hitting a white wall, 
the area you have enclosed will fill with water. Do 
NOT run into the wall you are building or you will 
be destroyed. If the starfish hits you or any part of 
the wall you are building before you complete it, you 
will be destroyed. On levels 1,2,4,7,12 and 13 you 
will be safe from attack when standing on a white 
wall, but on other levels the starfish can destroy you 
on contact at any time! 

If you do not complete the levels in a certain time 
period, electrified sea urchins will begin appearing 
on the white walls, moving along it looking for YOU! 
These creatures prove fatal on contact, but they can 
be destroyed by trappping them inside a completed 
resevoir. The sea urchins have no sense of fair play, 
and will "gang up” against you whenever possible. 

At the bottom of the screen are several informa¬ 
tion displays. "TGT” indicates the TARGET area 
you must fill with water before you complete the 
level. "CUR” indicates the CURRENT area you 
have filled. Once CUR reaches TGT, you have com¬ 
pleted the level and are awarded points. SCORE 
indicates the number of points you have gained. At 
the end of each level, the computer will give you 2 


points for each unit over the target you have filled. If 
the TARGET amount is 8000 and you fill 9000 
units, you receive 2000 points. "Fill 'Er Up” may be 
paused at any time by pressing the space bar. 

This game contains 16 levels of difficulty. The 
level number is shown in the lower left corner of the 
screen. 

You have three lives, shown in the lower right 
corner of the screen. Good luck! □ 


1 REM *** FILL ‘ER UP' IT *** 

10 0010 8,1,2,3,4,5,6,7,8,3,8,0,fl,0,0, 
0,0,10,11,12,13,14,15 

20 0IM D0T$(91J,HEXC22):F0R X=0 TO 22; 
REOD N : HEX CX)::N: NEXT X:LINE=990 ; REST0R 
E 1000:TRAP 60: 7 "CHECKING 00T0" 

25 LINE-LINE+18:? "LINE: ";LINE : REOD 00 
T$ : IF LEN (DOTS) 090 THEN 118 
28 00TLIN=PEEK(183)+PEEKtl84)*256:IF 0 
OTLINOLINE THEN ? "LINE "; LINE;" MISS 
ING!":END 

30 FOR X = 1 TO 89 STEP 2:D1=0SCCOOTS<X, 
XU-48:02 = 05CCOOTS CX + 1,X + l)>-48 : BYTE=H 
EXCD13*16+HEXCD2> 

35 IF P0S5-2 THEN PUT ttl,BYTE:NEXT X:R 
E0D CHKSUM:GOTO 25 

40 T0T0L=T0TAL+BYTE:NEXT X.'REOO CHKSUM 
:IF T0TAL=CHK5UM THEN 25 
50 GOTO 110 

60 IF PEEK C195)<>6 THEN 110 

186 ? "WRITING FILE":POSS=2:LINE=990:R 

EST0RE 1000:TROP 60-.GOTO 25 

110 ? "BOD D0T0: LINE ";LINE:END 

1000 00T0 0925858109148592090085808591 

088081809191E680E691D804E68IE6920592C9 

23O0ECO591C909D0E64C2D14,6169 

1018 D0T0 O9088O2F028D1OD08OC882O9748O 

C402O9C48DC502O90O8OC602O9348DC702O9F7 

8030820920803102O92E8O2F,11864 

1020 DATA 82O9838D1DD84C28192O65E4O900 

027F9580C018FB801422801522801622801722 

09118D6F82O9018OOC228OC4,15402 

1830 DATA 22282F1509488067220988806822 

090002049019219D242.1 CO18F7020590352ICO 

18FOO9088OC42285898OC622,20133 

1840 00T0 8D1ED08O2F828D0EO48D2822858O 

8088020285901D22C010FA8D2622A9038D2C22 

09988D3C21O90O8OC4020924,24483 

1850 DATA 8OC582O9948OC602O9C48OC702O9 

008OC882O9768OC182O93F8OC2028OC302O934 

8DC002O99280380209208031,29683 

1068 DATA 820000021F09062OSCE409108067 

D4O92E8D2F02O9038O1OO0O9408O0EO44C9615 

O900O27F9D80119D08129088,34142 

1878 DATA 129O08139O8013CAO0EE60O5830O 

85880900858106882681068005888584268105 

818585868026810680268105,38869 

1880 DATA 881865848580A58165858581A9O0 

1865808580A93065818581A5822903AOA5824A 

4A186580858OA58169008581,43824 

1890 DATA 6002008682020086832046150683 

A900O02791888810FBE8E056O0EBA9038OA622 

AE0622B09222858280962285,49247 

1100 DATA 83B09022800722B09E22800822B0 

O2228OO922204615BO7E22O800118091800582 

186DA7228582058318600822,54123 

1110 DATA 8583CEO922O0DFCEO62210BBA950 

B58B0954858C00262218690180292209008D14 

228015228016228017228024,58606 

1120 DATA 228O25228O2A22O9FF8D23222049 

100DF0220990802C210DF92209988020210E26 

22B00121802922B0B1218020,62917 

1130 DATA 22B0C121807022B0E12185958594 

0904802322204910A9808DOC22AA9O09239O09 

24CAO0F78OD0228DCF22AD27,67913 

1140 DATA 22O0FBO9FO8D00O2A9FE8O02D2O9 

FF8D04D2O9A38O01O28O03D28O05O2A900854D 

A58OO023O589F022AE2622BO,74064 

1150 DATA O121D017A58B8582A58C85832046 

15A000BO8A223180OO7E22F0834CD118A587F0 

064C9C1A4C74160904858700,79059 
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1160 DATA 78028DC822AABDD122187DD12285 

8DBDE122187DE122858E058DF0DCA58B18658D 

8DAD22C99FB0D0858238FDD1,85004 

1170 DATA 228DAA22A58C18658E8DAE220955 

B0BB858338FDE1228DAB22204615A008BD8A22 

31808DCD228ECE22ADAA2285,90224 

1180 DATA 82ADAB228583204615A000BD8A22 

318048AD8402DO0668D01E4C641768DD7E22D0 

15ADCD22AECE22DD7E22D0OA.95090 

1198 DATA ADAD22858BADAE22858C4C7416AD 

CF22D0278DD022ADC8228D0923A9018DCF228D 

2822A58B8DAF228DB1228DB3,100339 

1200 DATA 22A58C8DB0228DB2228DB422ADCD 

22AECE22DD8222D0034CD118AED022ADC822DD 

0923F0OCEED022E89D0923A9,105890 

1210 DATA O09D0924FEO924A9038DA922A58B 

8582A58C8583204615A008B1803D8E221D8222 

9180CEA922F019ACD022BE09,110621 

1220 DATA 23BDD1221865828582BDE1221865 

8385834CC517A582858BCDB32290868DB3224C 

0918CDB122B0038DB122A583,115711 

1230 DATA 858CCDB42290068DB4224C2818CD 

B222B0038DB222AECE22ADCD22DD7E22F00340 

7416A9008DCF2220F81BAD24,12072O 

1240 DATA 228D2922AD25228D2A22A90F8D23 

2220491AA9018DC92220B219AE2622AD242238 

FDA1218D2922AD2522FDB121,124652 

1250 DATA 8D2A2210034C5F16AD2622C90FF0 

03EE26220E29222E2A22A9FF8D232220491AA2 

05A008B9F922187D1D22C90A,128289 

1260 DATA 30OC38E90A9D1D22FE1C224CA318 

9D1D22O8CA18E2A205BD1D2209D09D3521CA10 

F5A9O18DC4228DAC22202F15,132641 

1270 DATA A9408D6722A9808D6822A9008DC4 

22409615A9008D01D28D03D28D05D2A9018DC6 

22A90F8DC722A9058588ADC7,137662 

1280 DATA 228D01D2AD0AD2291F8D00D2AD8A 

D229F00DC7228DC5028DC102A588D0E0CEC722 

10D7CE2C22AD2C2209908D3C,142752 

1290 DATA 21C99OD025A93D8DEF20A9218DF0 

20AD1FD02901D0F9AD1FD02901F0F9A9158DEF 

20A9218DF020406314A9018D,148209 

1300 DATA AC22AD0AD229FEC99FB0F78582AD 

0AD2297EC955B0F78583204615A008BD8A2231 

80DD7E22D0DB202F15A58285j153839 

1310 DATA 8BA583858CA9008DC922AD2822F0 

1C20B219ADAF228582ADB8228583204615A080 

BD8E2231801D7E229180A924,158626 

1328 DATA 8DC502A9008DC6228D1ED0858985 

8A4C5F16ADAF228DB522ADB0228DB622A9008D 

B722AEB722BD89238D0A22BD,163816 

1330 DATA 09248DCB22A9018DB822A9038DCC 

22ADB5228582ADB6228583204615A060ADC922 

D010BD8E22318091804C0A1A,168465 

1340 DATA A9008DCF2260BD8E2231801D7E22 

9180CECC22F01AAECA22ADB522187DD1228DB5 

22ADB622187DE1228DB6224C.173602 

1350 DATA DC19EEB822ADB822CDCB22F002B0 

034CD719EEB722ADB722CDD022F002B0B44CC3 

19A204A9O09DF922CA10FAA2,.179464 

1360 DATA 04AD2A22DDFF22F004B0189008AD 

2922DD8423B006CA10E94C881AAD292238FD04 

238D2922AD2A22FDFF228D2A,183980 

1370 DATA 22FEF9224C551AA284AC2322300C 

BDF92209D0991521C8CA10F468A586F0034C9F 

IBAD7D228586AD672238E90D,188874 

1380 DATA 8D6A22AD682238E92C8D6922AD0A 

D2C9F09008AD8AD229074CCC1AAD6C22AA8D6B 

22AD6922187D6D228582AD6A,193725 

1390 DATA 22187D75228583204615A000BD8A 

223180F0C7A90F8DC122D8CCA58218692C8D68 

22A58318690D8D6722AD6B22,198132 

1488 DATA 8D6C22A9838596A696BD1422F028 

BD80228582BD10228583204615A080BD8A2231 

80DD7E22F00EA696A9O09D14,2O2820 

1410 DATA 22C69618D54C9F1BA9038DC322A6 

96BD18228597A696A497BD0C2218790422C99F 

B01E8582BD182218790822C9,207587 

1428 DATA 55B0118583284615A000BD8A2231 

80DD7E22F015CEC32230B4AEC322A597187D01 

22290385974049IBA696A582 ,212273 

1438 DATA 9D0C22A5839D1022A5979D18224C 

361BA594F0O34C7416A5958594A203BD1422F0 

06CA10F84C74168698AD0AD2,217045 

1448 DATA C9A0BOF98582AD0AD2297FC955B0 

F78583284615A000BD8A223180DD7E22D0DDA6 

98A5829D0C22A5839D1022AD, 222751 


1450 DATA 0AD229039D1822A9019D14224C74 

16A9018DC422A9008DC022AD682238E92C8DB9 

22AD672238E90D8DBA22AEC0,227245 

1460 DATA 22ADB922187DF1228DB9228582AD 

BA22187DF5228DBA228583204615A000B1803D 

8A22DD7E22F00DDD8222DOD1,232421 

1470 DATA A9008DBF224C731CADC0228DBF22 

20521D20FC1CDD7E22D00620331D4C4B1CDD82 

22D00620331D4CB91C20461D,236412 

1480 DATA 4C541CA9008DC32220521D20FC1C 

DD8222D08620331D407310AD03221869018DC3 

220903F00620461D4C7B1CAD,24O407 

1490 DATA C0228DBF2220521D2OFC1CDD7E22 

D00620331D4C4B1C20461D4CA51C205E1DA900 

8DC32220FC1CDD7E22D00620,244373 

15O0 DATA 331D4CB91CADC3221869018DC322 

C904F00620461D4CC11020171DDD8222D80920 

9E1DA9008DC4226020461D20,248227 

1510 DATA FC104CE51CAEBF22ADB922187DF1 

228DBB228582ADBA22187DF5228DB0228583A5 

82C99FB011A583C955B0OB20,253777 

1520 DATA 4615A080B1803D8A2260A900A280 

60ADBF 228DC022ADBB228DB922ADBC228DBA22 

60ADBF2218690129038DBF22,258398 

1530 DATA 60ADBF2238E90129038DBF2260AD 

B9228562CDB322960680B3224C761DCDB122B8 

038DB122ADBA2285830DB422,263511 

1540 DATA 90868DB4224C8E1DCDB222B0038D 

B222204615A0O0BD8E223180 ID8222918060A9 

008DG3D28D05D2ADB42238ED,268158 

1550 DATA B2228DC222ADB12238E9018DB122 

8DBD22ADB2228DBE2238E9018DB222ADB32218 

69018DB322ADB4221869818D,273850 

1560 DATA B422A9008D2B22A9008DC5222O54 

1EC902D0F9EEC52220541EC902F0F62901D0E6 

ADC522C901F80520E81EF0DA.278385 

1570 DATA ADBD228582ADBE228583204615A8 

00B1881D86229188EE2B2220541EC900F0E029 

01D0B6A9018DC52220541EC9,283210 

1580 DATA 00F0OA2901D0A6EEC5224C2E1EAD 

C522C901DO034CDF1D20E81EDD8A22F0B44CDF 

1DADBD221869018DBD22CDB3,288351 

1590 DATA 22D050AD2422186D2B228D2422AD 

252269008D2522A9008D2B22ADB1228DBD22A9 

008DC522A9868D01D2ADC222,292636 

1600 DATA 8D00D2F003CEC222ADBE22186901 

8DBE22CDB422F00DADBD22CDB122DO0868684C 

DF1D686860ADBD228582ADBE,298112 

1610 DATA 228583204615A000BD8A223180DD 

8222D00DBD8A2211809180EE2B22A90268DD7E 

22D003A90160C900D00160A9,302731 

1620 DATA 0366ADBD228582ADBE2238E901CD 

B222F00D8583204615A000BD8A22318060A906 

A20060ADFC02C921D00DA9FF,307760 

1630 DATA 8DFC02AD272249FF8D2722AD2722 

F0034C5FE4ADC122300D09A08D07D2A9808D06 

D2CEC122A588F002C688A594,313096 

1648 DATA F606C693D002C694ADC422F0034C 

5FE4A9608589858AAD0DD0290CF002E68AAD0D 

D02901FO02E689ADO4D02902,318528 

1650 DATA F002E6898D1ED0A587F002C687A5 

86F002C686AD6522F006CE65224C9F1FA9018D 

6522AD66221869O1C907D002,323728 

1660 DATA A9008D6622AC6622AE6722A90O9D 

FF119D0812B92D229D0012B934229D0112B93B 

229D0212B942229D0312B949,327636 

1670 DATA 229D0412B950229D0512B957229D 

0612B95E229D0712AD68228D00D0ADAC22D831 

A58B18692F8D01DOA58C1869,331870 

1680 DATA 18AAA9009D7D129D7E129D82129D 

8312A9409D7F129D8112A9A09D8612ADC622D0 

03EEC102E696A5904A2901A8,336924 

1690 DATA B9FF21859AA5902981A8A9138592 

A9808591A901858FB9F1218599A960A68FBCF3 

21A2849191080A18FAA699BD,343810 

1700 DATA 1422F827BD0C22BC102218692EA6 

8F9D02D0981869OE9DF321A8A69AA904859BBD 

F5219191C8CAC69B10F5C68F,348458 

1710 DATA 3812A59138E9888591A592E98085 

92E6994C3C204C5FE47070704D06300D0D8D6D 

0D0D0D0D0D0D0DOD0D0D0D0D,351971 

1720 DATA 0D0D0D0D0D0D0D6D0D0D0D0D0D0D 

0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D8D0D 

0D0D0D0D0D0D0D0D8D0D0D0D,352556 

1730 DATA 0DGD0DOD0D0D0D0D0D0D0D0D0D0D 

0D0D0D0D8D0D0D0D0D0D204615214629214192 

207070707070707070703846,354537 
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1740 DATA 5121704765213046752170703046 

8D2141F7203427341A0Q0000000O8000233532 

1A00O000O0002C361A000000,356557 

1750 DATA 33232F32251A0000O00000000000 

000000000027212D2500002F362532O0000000 

000000212E212C2F2700232F,357465 

1760 DATA 2D303534252E27O0000000006665 

6C6C47657200757041006565000000000000A2 

B50000B4AFAD00A8B5A4B3AF,360748 

1770 DATA AE00000000008000F0F2E5F3F308 

00F3F4E1F2F4000000004O10E028F8D41004F8 

E0D4E944A870D41F272E232A,365882 

1780 DATA 3027252A2E302E2F2F3038040484 

03030302020202020101810101000001000101 

000101010100000101010707,366362 

1750 DATA 0706060605050504040403030201 

0002000O88502050882020F820200405FF0201 

O0010OFFFF00010800000000,368048 

1800 DATA 0000080000000000606000000000 

00000000000000000000000008000081402010 

080402424320100804C22424,368762 

1818 DATA 131088C82418181C1FF838181818 

38F81F1C182424C80810132442C20408102843 

810204081020400000000000,370504 

1820 DATA 800000010100FFFFFF0081060101 

00O1FFFFFF044010040180200802C0300C03C0 

300C033FCFF3FC005E5E8000,374250 

1830 DATA 0854540100FF0080010OFF5F555F 

55000000008000000000006060000060000000 

000006000000000000600000,375458 

1840 DATA 0600600000006060006006800000 

00008060000001006000FF6060006008000000 

08000000000080000001FF00,375570 

1850 DATA 000180FFFF800100000000000000 

0000800327018A64E810600006606066006060 

000000000006000000000000,376883 


CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 338,555,686,427,745,152,617,854 

,445,456,545,150,852,324,164,7774 

1630 DATA 121,368,374,344,511,505,145, 

258,276,448,485,547,207,532,414,6343 

1180 DATA 275,351,340.36,11,311,87,57, 

215,152,322.325,387.110,337,3364 

1330 DATA 73,335,405,357,275,510,28,43 

,154,25,103,247,143,113,166,2581 

1480 DATA 55,148,78,465,277,253,135,23 

3,145,35,502,34,388,535,56,3811 

1630 DATA 300.427,177,66,202,175,222,3 

33,51,435,886,208,233,664,863,5246 

1780 DATA 88,255,856,546,765,47,848,8, 

3445 


2 REM *** CASSETTE VERSION *** 

65 IF PASS-2 THEN C10SE »1:END 
76 ? "READY CASSETTE AND PRESS RETURN" 
; : OPEN ttl,8,128,"C:":REST0RE 200:FOR H 
= 1 TO 35 : READ N : PUT ttl, N : NEXT X 
260 DATA 0,31,221.15,255,15,165.60.141 
,2,211,165,0,141,231,2,133,14,165.56,1 
41,232,2,133,15,165,45 
216 DATA 133,16,165,28,133,11,24,56 
1866 DATA 0060600000000000006000006066 
06606060000660606800600060000600680060 
000000600000006600600000,376883 
1870 DATA 0000000600000000006060600600 
00000060000800000000600000000000600060 
000000000006000000000000,376883 


2 REM *** DISK VERSION *** 

65 IF PAS5=2 THEN PUT tti,224:PUT ttl,2: 
PUT ttl,225:PUT ttl,2:PUT #1,0:PUT #1,37 
:CLOSE ttl :END 

78 ? "INSERT DISK WITH DOS, PRESS RETU 
RN"; :DIM INS Cl) :INPUT INS;OPEH ttl,8,8, 
"D : AUTORUN.SYS" 

50 PUT ttl,255:PUT ttl,255;PUT ttl,6:PUT 
ttl,37:PUT ttl,25:PUT #1,52 


Assembly listing. 


;FILL 

'ER UP! il 

•BY TOM HUDSON 

1 

■ALPHABETIC 

constants 

CA 

= 

'A'-120 

CB 


'B'-528 

CC 

= 

'C'-528 

CD 

= 

"O'-428 

CE 

r 

E'-128 

CF 

= 

"F'-528 

CO 

= 

'G'-428 

CH 


'H'-528 

Cl 

= 

'!'-528 

CJ 


' J'-526 

CK 

= 

K'-528 

CL 

- 

'L'-528 

CM 

r 

M'-428 

CN 

= 

N'-$28 

CO 

= 

"O'-428 

CP 

= 

"P'-$28 

CQ 

r 

'Q'-528 

CR 

- 

'R'-428 

CS 

= 

'3'-528 

,--T 

U 1 

- 

"T'-428 

cu 

r 

■U'-428 

ni i 

= 

'U-528 

cu 

= 

-w-m 

esc 

= 

'X' -528 

CY 

= 

'Y'-420 

T' 7 
iri. 

= 

'2'-520 

CCOL 

= 

': '-428 

■PAGE 

J 

ZERO 

ITEMS 


0R6 

588 

LO 

DS 

1 

i 

HI 

DS 

I 

PLOTX 

DS 

1 

PLOTY 

DS 

1 

LOHLD 

DS 

5 

i 

HIHLD 

Db 

i 

3HT1M 

DS 

i 

MGVTIH DS 

i 

TIMER 

DS 

i 

DEADFG OS 

i 

i 

HSHORT DS 

i 

PX 

OS 

i 

Pi 

DS 

i 

XI 

OS 

j 

YI 

DS 

j 
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DfcSTMl OS 

1 


STA 

LO 

MEMORY LOCATION 

SHFLIP DS 

i 


STA 

DESTLO 

OF *1400. 

DESTLCl OS 

1 


LDY 

#6 


0ESTH1 DS 

i 


COPYLP LDA 

(LO),Y 


3HTIM1 OS 

i 


STA 

(DESTLO),Y 


SHTIM2 DS 

i 


INC 

LO 


3HTIHI OS 

l 


INC 

DESTLO 


SHORTN DS 

i 


8NE 

INCEND 


DIRSAV DS 

i 


INC 

HI 


HOlDSx DS 

i 


INC 

DESTHI 


V6XHLD OS 

i 


INCEND LDA 

DESTHI 


CPYST DS 

! 


CMP 

#01R7254 


CPYCWT OS 

! 


BNE 

COPYLP 


* 



LOA 

DESTLO 


'.MISCELLANEOUS MEMORY 

USAGE 

CMP 

NDIR&255 


PMAREA = 



BNE 

COPYLP 


*1000 


JHP 

FILLUP 


HI SSLS = 

PMAREA+384 





FLO 

PMAREA+512 


* 



PL1 = 

PMAREA+640 


(MAIN PROGRAM STARTS HERE 


PL2 = 

PMAREA+748 


i 



F'L 3 = 

PMAREa+896 





D1SP = 

*3888 


FILLUP LDA 

#*00 

TURN OFF... 

; 



STA 

DMACTL 

DMA 

(SYSTEM EQUATES 


STA 

ORACTL 

GRAPHICS 

1 



STA 

COLBK 

BLACK BACKGNB 

KEY = 

*2FC 


LOA 

#*74 

BLUE 

rrtjcni = 

3081F 


STa 

C0LPF8 

COLOR# 

PMBASE = 

*0487 


LDA 

#*C4 

GREEN 

RANDOM = 

*D20A 


STA 

C0LPF1 

COLOR! 

SETVBU = 

*E45C 


LDA 

#*0A 

UHFE 

XI W = 

*E45F 


STh 

C0LPF2 

COLORS 

COLBK = 

*2C8 


LDA 

#*34 

RED 

C0LPF8 = 

*2C4 


STA 

C0LPF3 

COLORS 

COLPF1 = 

I2C5 


LOA 

NTITLDL&255 

SETUP... 

CULPF2 = 

*2C6 


STA 

DLISTl 

TITLE... 

C0LPF3 = 

*2C7 


LDA 

#TITLDL/254 

DISPLAY... 

AUOCl = 

*028! 


STA 

DLISTL-U 

LIST' 

AUDC2 = 

*0203 


LDA 

#*2E 

TURN AN... 

AUDC3 = 

*0205 


STA 

DMACTL 

DMA 

AUDC4 = 

*0287 


LOA 

#3 

TURN ON... 

AUDFI = 

*0288 


STA 

GfiAdL 

GRAPHICS 

AUDF2 = 

*0202 


JHP 

CKSTRT 

WAIT FOR START 

AU0F3 = 

*0284 





AUDF4 = 

*0204 


START JSR 

*E465 

INIT SOUNDS 

AUDCTL = 

*0288 


LDA 

#0 

CLEAR OUT 

PRIOR = 

*026F 


LDX 

#12? 

AIL ZERO PAGE 

ATTRAC = 

*40 


CLPG0 STA 

*80, X 

USER MEMORY 

DMACTL = 

$22F 


DEX 



DU STL = 

*238 


8PL 

CLP60 


ORACTL = 

*0810 


STa 

SHORTF 

STOP SHORTS 

NfllEN = 

*D40t 


STA 

3H0RTF+! 


C0LFM8 = 

*2C6 


STA 

SHORTF 4 2 


COL PH! = 

* 2 C: 


STa 

SHORTF+3 


C0LPM2 = 

$2C2 


LDA 

#*11 

P/M PRIORITY 

C0LPM3 = 

S2C3 


STA 

PRIOR 


HPOSP0 = 

*0080 


LDA 

#1 

DON'T SHOW 

HPOSPi = 

*000! 


STA 

SHOOFF 

PLAYER OR STAR 

HP0SP2 = 

*0802 


STA 

FILLQN 

WE STILl MUST 

HIT CLR = 

*00 IE 


JSR 

PMCLR 

CLEAR P/M AREA 

P9PF = 

*0884 


LOA 

#44 

AND SET UP THE 

PI PL = 

*0880 


sTa 

3TRH6T 

STAR'S HEIGHT 

STICK = 

*278 


LDA 

#128 

AND 

STRIG = 

*284 


STA 

STRHOR 

HORIZONTAL POSITION 




LDA 

#*08 

NOW LET'S 

ORb 

*4008 

(ASSBIBlE ador. 

LDX 

#4 

ZERO OUT 

LUC *1400 

(ACTUAL ADDRESS 

ZSCLP STA 

SC0L1N44.X 

THE SCORE 




STA 

SCOL!N+15,X 

AREAS ! 

•RELOCATE 



DEX 



PROGRAM LOIS 

K VERSION ONLY) 

SPL 

ZSCLP 


5 



LDX 

#5 





2SCLP2 STA 

SC0LN2+12,X 


MOVEPG lDA #*25 

(FUR DISK ONLY. 

DE.x 



ST A 

Hi 

(THIS SECTION 

BPL 

2SCLP2 


LOA fr*!4 

(MOVES THE 

LDA 

#f! 

THESE ITEMS 

STA DESTHI 

(PROGRAM TO 

STA 

FI LION 

MUST BE SET 

LDA #6 

(ITS OPERATIONAL 

STa 

DEAOTG 

TO ZERO ON 
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STA NOCCHG 

;STARTUP OR 

STA HITCLR 

; ELSE WE-LL 

STA DMaCTL 

(WIND UP WITH 

STA ffllEN 

(NASTY THINGS 

STA HASORN 

; HAPPENING 1 

STA KSHORT 

STA AUOCTL 

LDX #5 

;LET'S ZERO 

CMSLP STA SCORE ,X 

;OUT THE SCORE 

DEX 

;COUNTER... 

BPL iOISLP 

STA LEVEL 

;ANO LEVEL #: 

LOA 113 

;WE START WITH 

STA HUES 

;3 LIVES 

ORA #$?8 

;ANO PUT THEM IN 

STA 3C0LN2+19 

;THE SCORE LIME 

LDA #$8A 

(NEXT WE SET UP 

STA COLPFe 

;THE COLORS WE 

LDA #*24 

(WANT TO USE. 

STA C0LPF1 

LDA #$?4 

STA C0LPF2 

LDA #$C4 

STA C0LPF3 

LDA #8 

STA COLBK 

LDA #$76 

STA COLPtll 

LDA #$3F 

STA C0LPM2 

STA C0LPM3 

LDA #$34 

STA COLPM0 

LDA #DLIST&255 

(WE'D BETTER TELL 

STA DLI3TL 

(THE COMPUTER WHERE 

LDA #DLIST/256 

(OUR DISPLAY LIST 

STA DLISTL+1 

(IS LOCATED! 

LDY #INTRPT&255 

(TELL WHERE THE 

LDX #INTRPT/256 

(VERTICAL BLANK 

LDA #6 

:INTERRUPT IS 

■JSR 3ETVBV 

(AND SET IT' 

LDA #P11AREA/256 

(HERE'S OUR m 

STA PMBASE 

(GRAPHICS AREA 1 

LDA #$2E 

(TURN ON THE 

STA DMACTL 

■m CONTROL 

LDA #$3 

(AND 

STA GRAC'TL 

(GRAPHICS CONTROL! 

LDA #$48 

(ENABLE VB! 

STA mien 

JMP CLRDSP 

PMCLR LDA #8 

(CLEAR OUT 

LDX #127 

(THE P/M AREA: 

PMICLR STA MI SSLS,X 

(MISSILES, 

STA PL8,X 

(PLAYER 8, 

STA PL1.X 

(PLAYER 1, 

STA PL2.X 

(PLAYER 2, 

STA PL 3 ,X 

(AND PLAYER 3! 

DEX 

8NE PMICLR 

(LOOP UNTIL DONE 

RETURN RTS 

(WE'RE DONE 1 

■PLOT ADDRESS CALCULATOR 

■MULTIPLY PLOTY BY 48, 

THEN CALCULATE ADDRESS 

;0F THE SCREEN M01ORY 1 

0 BE ALTERED. 

PLOTCL LDA PLOTY 

ASL A 

STA LO 

LDA #8 

STA HI 

;*2 

ASL LO 

ROL HI 

(*4 

ASL LO 

LDA LO 

STA LOHLD 

ROL HI 

;*8 



LDA 

HI 



STA 

HIHLD 



ASL 

LO 



ROL 

H! 

; *16 


ASL 

LO 



ROL 

HI 

; *32 


LDA 

LO 



CLC 




ADC 

LOHLD 



STA 

LO 



LDA 

HI 



ADC 

HIHLD 



STA 

HI 

;**8=*48 


LDA 

KDISP&255 



CLC 




ADC 

LO 



STA 

LO 



LDA 

#DISP/256 



ADC 

HI 



STA 

HI 

(♦DISPLAY START 


LDA 

PLOTX 

(MASK X POSITION 


PND 

#3 



TAX 




LDA 

PLOTX 



LSR 

A 



LSR 

A 



CLC 




ADC 

LO 



STA 

LO 



LDA 

HI 



ADC 

#8 

(LO & HI NOW HOLD 


STA 

HI 

(THE ADDRESS 1 


RTS 


(EXIT' 

•CLEAR 

THE 

DISPLAY MEMORY 


CLRDSP 

LDX 

#8 

(THIS ROUTINE WILL 


3TX 

PLOTX 

(CLEAR THE SCREEN 


LDX 

#8 

(IT GETS THE ADORE 

DLOOP2 

STX 

PLOTY 

:0F THE BEGINNING 


JSR 

PLOTCL 

(EACH SR.7 LINE 


LDX 

PLOTY 

(THEN ZEROES OUT 


LOA 

#$08 

(EACH OF THE 


LDY 

#3? 

;48 BYTES (0-3?i 

DL00P3 

STA 

(LO),Y 

(IN THE LINE. 


DEY 



BPL 

DL00P3 



I NX 




CPX 

#36 



BNE 

DL00P2 


■DRAW 

YHE COLOR ! BORDER 



LDA 

#3 

(THIS ROUTINE 


STA 

80RNUH 

(DRAWS THE 4 LINES 

BORDER 

LDX 

80RNUM 

:TWT MAKE UP THE 


LDA 

BXSIRT,X 

(WHITE GR.7 BORDER 


STA 

PLOTX 

(ON THE SCREEN. 


LDA 

BYSTRT.X 



STA 

PLOTY 



LDA 

EX INC,X 



sta 

BDINCX 



LDA 

BY INC,X 



STA 

3DINCY 



LDA 

BORCNT.X 



STA 

BOCNT 


DRAWLN 

JSR 

PLOTCL 



LDA 

COLOR1,X 



LDY 

#e 



ORA 

ao),Y 



STA 

(LO).Y 



LDA 

PLOTX 



CLC 

ADC BDINCX 
3TA PLOT* 
LDA PLOTY 
CLC 
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ADC BDINCY 


BED ALIVE 

NO 1 

sta plott 


LDX LEVEL 

IT HIT US-- 

DEC BOCNT 


LDA KILLF6,X 

UNC94DITIQNAL KILL’ 

BNE DRAULN 


BNE JCRSH 

YES 1 WE' RE DEAD'! * 

DEC BORNUM 


LDA PX 

NO, IF WERE ON A 

BPL BORDER 


STA PLOTX 

WHITE LINE (COLOR 1) 



LDA PY 

THEN WE'RE ALIVE 1 

:THiS SECTION STARTS OFF EaCH LPUEL 

STA PLOTY 




JSR PLOTCL 


LDA #30 

(POSITION THE 

LDY #0 


STA px 

(PLAYER 

LDA BITSON.X 


LDA #84 


AND (LO).Y 


STA PY 


CMP COLORl ,X 

ON COLOR 1’ 

LDA LEVEL 

(INCREMENT THE 

BEQ ALIVE 

YES (WHEW 1 ) 

CLC 

(LEVEL NUMBER 

JCRSH JMP CRASH 

GO KILL PLAYER. 

ADC #1 


ALIVE LDA MOVTIH 

PLAYER MOVING? 

STA LOOK 


BED GOTSTK 

YES-GET STICK. 

LDA #6 

(ZERO OUT 

JMP MOVSTR 

NO. MOVE STAR. 

STA SHORTF 


JGSTK JMP GETSTK 

GO GET STICK 

STA SHORTF41 


GOTSTK LDA #4 

SET UP THE 

STA SHORTF42 


STA MOVT1M 

MOVEMENT TIMER 

STA 3H0RTF43 


LDA STICK 

GET THE STICK 

STA CURLO 

(CURRENT TALLY 

STA S7KHLD 

AND SAVE IT 

STA CURHI 

(WORK AREA 

TAX 

THEN LOOK UP 

STA HlWk 


LDA XD,X 

X DIRECTION 

LDA #$FF 

(TELL DECIMAL CONVERTER 

CLC 


STA SLLOC 

(NOT TO PLACE RESULT 

ADC XD,X 


JSR CWVDEC 

(CONVERT LEVEL # 

STA XI 

AND 

LDA DECIMAL+1 

(GET DECIMAL LEVEL # 

LDA YD,X 

Y DIRECTION 

ORA #i?0 

(ADD COLOR 

CLC 


STA SC0LN2+3 

(PUT IN SCORE LINE 

ADC YD ,X 


LDA DECIMAL 

(SAME FOR '2ND 

STA Yi 


ora mn 

(LEVEL # 

ORA XI 

ANY MOVEMENT? 

STA SCOLN244 

(DIGIT 

BED JGSTK 

NO, TRY AGAIN. 

LDX LEVEL 

(GET THIS LEVEL'S 

LDA PX 

INUREMENT 

LDA TGTLO.X 

(PARAMETERS 

ClC 

PLAYER X 

SI A LOUR 


ADC XI 

POSITION AND 

LDA TOTH! ,X 


STA CKx 

HOLD IT... 

STA HIUR 


CMP #!5? 

OFFSCREEN’ 

LEW STARSP,X 


BCS JGSTK 

YES" 

STA 3TRSPD 


STA PLOTX 

NO. SAVE IT 

LDA 3HTIME.X 


SEC 


STA SHTIHJ 


SBC XO,X 


STA SHTIM2 


SlA PXUC 


LDA #4 


LOA PY 

INCREMENT 

STA SLLOC 


CLC 

PLAYER Y 

JSR CNVQEC 

(SHOW TARGET AMOUNT 

ADC YI 

POSITION AND 



STA CKY 

HOLD IT... 

;CLEAR OUT THE TRACKING TABLE THAT 

|>1P #35 

OFFSCREEN’ 

.■REMEMBERS WHERE THE PLATER MOVED 

tSCb JGblK 

YES: 



STA PLOTY 

NO, SAVE IT 

CLRTRK LL'A #0 


SEC 


STA SHOOFF 


sBC ro,.x 


TAX 


STA PYUC 


CLRTLP STA DIR.X 

(CLEAR DIRECTION 

JSR PLOT CL 

LOCATE NEW PLAYER 

STA L6TH t .X 

(AND LENGTH ENTRIES 

LDY #0 

POSITION. 

DEX 


LDA BITSOIU 


BNE CLRTLP 


AND ao),Y 


STA MOVIX 

(CLEAR MOVEMENT INDEX 

STA CKV 

SAVE THE LOCATE'. 

STA DRAWFG 

(AND DRAW FLAG 

STX CKVX 


GETSTK LDA PAUSE 

(GtflE PAUSED? 

LDA PXUC 

CHECK THE 

PIE GETSTK 

(YES, LOOP AND WAIT. 

STA PLOTX 

POSITION NEXT 

LDA #IFD 

(DO 'WARBLE' SOUND 

LDA PYUC 

TO THE WE WE' RE 

STA AilDF! 

(USING SOUND 

S’A PLOTY 

NOW IN... 

LDA #*FE 

(CHANNELS 1-3 

JSR PLOTCL 


STA «UDF2 


LDY #l< 


LDA #*FP 


LDA BIT3GN.X 


STA AUDF3 


AND >;LUi,Y 


LDA #$A3 


PHA 

AND SAVE IT 1 

STA AUDC1 


LDA STRIG 

TRIGGER PRESSED’ 

STA AUDC2 


BNE NOTORN 

NU 1 

STA AUBC3 


PLA 

OK TO DRAW’ 

LDA #8 

(NO ATTRACT MODE! 

BNE JGS 

NO: 

STA AH RAC 


JMP DRAW IN 

YES, GO DRAW. 

LDA HSHORT 

(DID SHORT HIT US? 

NOTDRN PLA 

NOT DRAWING—ARE WE 

BNE JCRSH 

(YES' WE'RE DEAD’ 

CMP COLORl ,X 

ON COLOR 1° 

LDA DEADFG 

(DID STAR HIT US’ 

BNE JUS 

NO, TRY AGAIN 
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LDA CKV 

;AWE WE MOVING 

CHKYMM LDA PLOTY 


LDX CKVX 

[UNTO ANOTHER 

STA PY 


CMP C01.0R1 ,X 

; COLOR 1? 

CMP MAXY 


bne JGS 

;Nu! TRY AGAIN. 

BCC TMINY 


LDA CKX 

;ALL'S WELL... 

STA MAXY 


STA PX 

; UPDATE PX 

JMP ENDMM 


LDA Ckr 

;AND 

TMINY CMP M1NY 


3TA PY 

;PY. 

BCS ENDMM 


JGS JMP GETSTK 

;GET STICK. 

STA MINT 


1 


ENDMM LDX CKVX 

DID WE DRAW 

;THIS ROUTINE HANDLES 

THE DRAW FUNCTION. 

LDA CKV 

[INTO 

6RAWIN LDA DRAWFG 


■JMP COL OR 1 ,X 

COLOR l? 

iALREADY DRAWING? 

BEG ENDLIN 

[YES 1 END OF LIME 1 

BNE DRAUOK 

[YES' 

JMP GETSTK 

NO, GO GET STICK. 

3TA MQVIX 

[NO, THIS IS THE 

ENDLIN LDA #0 

•WE AREN'T 

LDA STkHLD 

;FIRST TIME-SET UP 

STA DRAWFG 

DRAWING ANYMORE 

STA OIR 

iINITIAL DRAWING 

JSR SEARCH 

SEARCH AND HLL 1 * 

LDA #1 

;VARIABLES. 

LDA CURLO 

GET CURRENT VALUE 

STA DRAWFG 


STA LOUR 

STA HASDRN 


LDA CURHI 


LDA PX 


STA HIWK 


STA JN1.X 


LOA K15 

PUT AT 15TH 

STA MINX 


STA SLLOC 

POS. IN SCGL1N 

STA MAXX 


JSR CNVDEC 

CONVERT TO DECIMAL 

LDA PY 


LDA ttl 

NOW REDRAW THE 

STA INiY 


STA RORCOL 

PLAYER'S PATH IN 

STA MINT 


JSR REDRAW 

COLOR 1 (WHITE). 

STA MAXY 


LDX LEVEL 

CHECK TO SEE 

DRAWOK LDA CKV 

;DID WE 

LDA CURLO 

IF WE'VE HIT 

LDX CKvX 

;RUN INTO ANOTHER 

SEC 

THE TARGET. 

CMP COLORS,X 

;COLOR S? 

SBC TGTLO.X 

BNE NOCRSH 

jNO, WE''RE OK. 

STA LOUK 


JMP CRASH 

iCRRAAASSSHHHI 

LDA CURHI 


NOCRSH LDX MOVIX 

;UPDATE THE 

SBC TGTHI,X 


LDA STKHLD 

i TRACKING 

STA HIWK 

[HIT TARGET? 

CMP DIR.X 

[Tables with 

8PL NEULVL 

YES-NEW LEVEL! 

3EQ 3AMDIR 

[DIRECTION 

JMP CLRTRK 

NO, GO CLEAR TRACK 

INC MOVIX 

[INFORMATION. 

NEULVL LDA LEVEL 

IF LEVEL < 15 

I NX 


CMP #15 

THEN 

STA DIR.X 


BEG NGL1NC 

INCREMENT 

LOA #8 

STA LGTH,X 


INC LEVEL 

LEVEL 

SAMDIR INC LGTH.X 


[INCREASE SCORE HERE 


LDA #3 

STA E'DCNT 


NQLINC A3L LOUK 

SCORE INC = 

LOA PX 

[NOW PLOT THE 

RUL HIWK 

TGT-CUR * 2 

STA PLOTX 

[LINE WE'RE 

LDA »FF 

DON'T PLACE 

LDA PY 

[DRAWING... 

STA SLLOC 

IHE RESULT' 

STA PLOTY 


JSR CNVOEC 

CONVERT TO DECIMAL 

CCLOOP JSR PLOTCL 


LDX #5 

AND ADD TO SCORE 

LQY #8 


LDY #8 


LDA aO),Y 


SCOLP LDA DECIMAL,Y 


AND BITuFF,X 


CLC 


ORA COLORS,X 

;IN COLOR S. 

ADC SCORE.X 


STA (LO),Y 


CMP #18 


DEC BDCNT 


8MI N0CARY 


BEQ CKCOLR 


SEC 


LDY MOVIX 


SBC #10 


LDX OIR,Y 


STA SCORE,X 


LDA XD,X 


INC SCORE-1,X 


CLC 


JMP NX3POS 


aDC PlOTx 


NOCARY STA SCORE,X 


STA PLOTX 


NXSPOS INY 


LDA YD.X 


DEX 


CLC 


BPL SCOLP 


ADC PLOTY 


LDX #5 

now place ^he 

STA PLOTY 


SHSLP LDA SCORE,X 

SCORE IN 

JMP CCLOOP 


ORA woe 

SCORE LINE #2 

CKCOLR LDA PLOTX 

[UPDATE X POS. 

STA SC0LN2+I2,X 

STA PX 


DEX 


CMP MXX 

[CHECK MINIMUM 

8PL SHSLP 


BCC TH1NX 

;AND MAXIMUM 

LDA #1 [STOP VBI FOR 

STA MAXX 

;X & Y VALUES 

STA FILLON 

A MOMENT 

JMP CHKYMM 

[AND UPDATE IF 

STA SHOOFF 

TMINX CMP MINX 

[NECESSARY 

JSR PMCLR 

CLEAR P/M AREA 

80S CHKYMM 


LDA #44 

INITIALISE 

STA MINX 


STA 3TRHGT 

THE 
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LDA #128 

; STAR 

STA PX 

THE PLAYER'S 

STA STRHOR 

;POSIT I ON 

LDA PLOTY 

NEW 

LDA #8 

;'JB1 ON AGAIN 

STA PY 

COORDINATES. 

STA FILLON 


LDA #8 

;REDRAW THE 

JMP CLRDSP 

;GO CLEAR DISPLAY' 

STA RDRCOL 

PLAYER'S TRACK 

■THIS SECTION HANDLES PLAYER 


LDA HASDRN 

IN COLOR e 

S DEATH 

BEQ JCTRK 

JSR REDRAW 


CRASH LDA #8 

;NO WARBLE SOUND 

LDA INIX 

THIS PART IS 

STA AUDCl 


STA PLOTX 

NEEDED TO p LOT 

STA AUDC2 


LDA INIY 

A COLOR 1 BLOCK 

STa AUDC3 


STA PLOTY 

AT THE START OF 

LDA #1 

;NU PLAYER COLOR 

JSR PLOTCL 

THE PLAYER'S TRACK 

STA NOCCHG 

I CHANGE IN V6I 

LDY #6 

AFTER IT IS ERASED. 

LDA #15 

;SET BRIGHTNESS OF 

LDA BITOFF,X 

(NOBODY'S PERFECT 1 ) 

STA DEDBRT 

;PLAYER DEATH, 

AND (LO).y 

ORA COLOR!,X 


TIMRST LDA #5 

;SET DEATH TIMER 


STA TIMER 

STO 5 JIFFIES. 

STA (LO) ,Y 


DEADCC LDA DEDBRT 

;MCUE BRIGHTNESS 

JCTRK LDA #$24 

RESTORE DRAW LIME 

SIA AUDCl 

;TO DEATH SOUND VOLUME 

STA COLPF1 

COLOR 

LDA RANDOM 

;GET RANDOM 

LDA #8 


AND #4!F 

;DEATH SOUND 

STA NOCCHG 


STA AUDF! 

I FREQUENCY 

STA HITCLR 


LDA RANDOM 

:GET RANDOM 

STA DEADFG 


AND #$F6 

;DEATH COLOR 

sta hshort 


ORA DEDBRT 

;ADD BRITE 

JMP CLRTRK 

AND GO START NEW TRACK. 

STA COLPF1 

;POT IN LINE COLOR 

\ 


STA COLPtil 

;AND PLAYER COLOR 

,‘THIS ROUTINE USES THE TRACKING TABLES, 

LDA TIMER 

;TIMER DONE YET'? 

jDIR AND LGTH, TO REDRAW THE LINE THE 

BNE DEADCC 

■NO. GO CHANGE COLOR. 

;PLAYER DREW. RDRCOL INDICATES THE COLOR 

DEC DEDBRT 

■DECREMENT BRIGHTNESS 

;DESIRtD. 


BPL TIMRST 

;IF MORE, GO DO IT. 

REDRAW LDA INlX 


DEC LIVES 

;! LESS LIFE 


LDA LIMES 

;GET # LIVES 

STA REX 


ORA #*?8 

;ADO COLOR 

LDA INIY 


STA SC0LN2+19 

;AND DISPLAY' 

STA REY 


cmp 

■ZERO LIVES? 

LDA #8 


BNE NOTDED 

;NO ! 

sTa X 


LDA #60MSG&255 

■WE'RE COMPLETELY 

REDXLP LQX X 


STA SCDL 

;DEAD. SHOW 

LDA D1R,X 


LDA #G0MSG/256 

;'GAME OVER' 

STA FED!R 


STA SCDL+1 

:MES3AGE 

LDA LGTH,X 


CKSTRT LDA CONSOL 

;WAIT FOR START 

STA LG’HY 


AND #1 

;KEY... 

LDA #1 


BNE CKSTRT 

;NOT PRESSED—LOOP. 

STA Y 


RELEAS LDA CONSOL 

;KEY PRESSED. NOJ 

REDYLP LDA #3 


AND #1 

;WAIT FOR RELEASE 1 

sta times 


BEQ RELEAS 

;N0 T RELEASED YET 1 

T1MES3 LDA REx 


LDA #SC0LM255 

;PUT SCORE 

STA PLOTS 


STA SCDL 

;L!NE BACK 

LDA REY 


LDA flSCGLIN/256 

:IN DISPLAY 

STA FlOT'i 


STA SCDL+1 

;LIS7... 

JSR PLOTCL 


.JMP START 

;AND START GAME 1 

LDY #B 

LDA RDRCOL 


;TH!S SECTION PLACES PLAYER AT A RANDOM 

BNE RDCl 


;LOCATION IF THERE ARE MORE 

NOTDED LDA #1 

.IVES LEFT. 

LDA BITOFF ,X 

AND <LO),Y 


;DON'T SHOW 

STA (LO).Y 

JMP SETNRP 


STA SHOOFF 

iPLAYER 


NEWLOC IDA RANDOM 

;6ET RANDOM X 

ENDRD LDA #8 


and #$fe 

;MU3T BE EVEN 

STA DRAUFG 


CMP #159 

;AND ON SCREEN 

RTS 


BCS NEWLOC 


RDCl LDA B1TGFF,X 


STA PLOTX 


AND (LO),r 


CSHT LDA RANDOM 

; GET RANDOM Y 

ORA COLORI ,X 


AND «?E 

;MUST BE EVEN 

STA <LG),Y 


CMP #85 

;AND ON SCREEN 

SETNRP DEC TIMES 


BCS CSHY 


BEQ NXTY 


STA PlOTV 


LDX REDIR 


JSR PLOT CL 


LDA REX 


LDY #ti 


Cue 


LDA BITSONjX 


ADC XO,X 


AND (LO).Y 

ilS LOCATION ON 

STA REX 


CMP COLuRl,X 

;COLOR 1? 

LDA REY 


BNE NEWLOC 

:NO, TRY AGAIN. 

CLC 


JSR PMCLR 

ilT'S OK, CLEAR P/M 

ADC YO,X 


LDA PLOTX 

; SA*JE 

STA REy 
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JMP TIMES3 
NXTY INC 1 
LDA Y 
CMP L81HY 
BEQ JNRO 
8CS NXTX 

JNRO JMP REOYLP 

NXTX INC X 

LOA X 
CMP MOVIX 
BEQ JRXLP 
BCS ENDRD 
JRXLP JMP REDXLP 

■2-BYTE DECIMAL CONVERTER. CONVERTS 
;A 2-BYTE BINARY NUMBER TO A 5-BYTE 
;DECIMAL NUMBER. UILL PLACE THE 
(DECIMAL NUMBER IN SCOL3N IF DESIRED 
;(3LLOC DETERMINES POSITION). 

CNVDEC LDX #4 
LDA #0 

CDLP STA DECIMAL,X 
DEX 

BPL CDLP 
LDX #4 

CKMAG LDA HIUK 

CMP H1VALS.X 
BEQ CKM2 
BCS 3UBEM 
8CC NOSUB 
CKM2 LDA LQUK 

CMP LGVALS.X 
BCS 3UBEM ' 

NOSUB DEX 

BPL CKMAG 
JMP SHOWIT 
SUBEM LDA LQUK 
SEC 

SBC LffJALS.X 
STA LOWK 
LDA HIUK 
SBC HIVALS.X 
STA HIUK 
INC DECIMAL,X 
JMP CKMAG 
SHOWIT LDX #54 
LDY SLLOC 
911 SHEND 

SHOLP LDA DECIMAL,X 
ORA #$D0 
STA SCOLJN,Y 
J MY' 

DEX 

BPL SHOLP 
SHEND RTS 

(THIS ROUTINE MOVES THE STAR AROUND ON 
;THE PLAYFIELD. THE STAR IS ROTATED AND 
;PLOTTED (IN A PLAYER) IN THE OBI. 

MOVSTR LDA SMTIM jTIME TO MOVE? 

BEQ MSTR ;YES, GO DO IT 

JMP TRYSHO ;NO, GET STICK 

MSTR LDA STRSPD -SET MOVEMENT TIMER 

STA SMTIM ;UITH STAR SPEED 

LDA STRHGT jADJUST PXM 

SEC ;COORDINATES TO 

SBC #13 ;MATCH PLAYFIELD 

STA STRLY ;PLOTTING 

LDA STRHOR ;COORDINATES. 

SEC 

SBC #44 
STA STRLX 

LDA RANDOM :WAN7 TO CHANGE 

CMP #248 ;THE STAR'S DIRECTION? 

BCC SAHSTD ;NO, USE SAME. 


NEWDIR LDA RANDOM ;GET RANDOM 

AND #7 ;DIRECT I ON 

JMP DIRCHK 

SAMSTD LDA STRD1R ;GET OLD DIRECTION. 

DIRCHK TAX ;CHECK TO SEE 

STA TMP9IR ;IF STAR UILL 

LDA STRLX ;BUMP INTO ANY 

CLC )PLAYFIELD 

ADC 3TRDTX,X ;OBJECT. 

STA PLOTX 
LDA STRLY 
CLC 

ADC STRDTY.X 
STA PLOTY ' 

JSR PLOTCL 
LDY #0 

LDA 81TS0N,X 

AND (LO),Y (ANY COLLISION’ 

BEQ UAYCLR ;NO, ALL CLEAR 1 

LDA #15 ;HIT SOMETHING, 

STA BSCNT ;START BUMP SOUND AND 

BNE NEUD1R ;GET NEW DIRECTION. 

UAYCLR IDA PLOTx (ADJUST STAR 

CLC (COORDINATES 

ADC #44 (BACK TO P/M 

STA STRHOR (COORDINATES 

LOA PLOTY (FROM PLAYFIELD. 

CLC 

ADC #13 
STA STRHGT 

LDA TMPOIR (SET DIRECTION 

STA 3TRD1R 
MGVE3H LDA #3 

STA SHORTN 
3HMVLP lDX SHORTN 
LDfl SHORTF.X 
BEQ NXTSM 
LDA 3H0RTX,X 
STA PLOTX 
LDA SHORTY,x 
STA PLOTY 
JSR PlOTCL 
LDY #0 

LDA B1TS0N,X 
AND (10),Y 
CMP COLORl ,X 
BEQ MOVe IT 
KILLSH LDX SHORTN 
LDA #8 

STA SHORTF,X 
NXTSM DEC SHORTN 
BPL SHMVLP 
JMP TRYSHO 
MOVE IT LDA #3 

STA tries 
LDX SHORTN 
LDA 3H0RTD,X 
STA DIRSAU 
TRYMOV LDX -SHORTN 
LDY D1RSAV 
LOA SHORTX.X 
CLC 

AOC OIRX.T 
CMP #159 
BCS NXTTRN 
STA PLOTX 
LOA SHORTY ,X 
CLC 

AOC DIRY.T 
CMP #85 
BCS NXTTRN 
STA PLOTY 
JSR PLOTCL 
LDY #0 

LDA BITSON.X 

AND <LO),Y ;IS IT OVER 

CMP COLORl,X (COLOR 1’ 


;4 SHORTS 
(GET SHORT # 
(SHORT ALIVE’ 
(NO 

i v 

(COORDINATE 
(AND Y 
(COORDINATE 
;JS SHORT 
(UN... 


;rUP ! 

(STOP THIS SHORT 
(BY TURNING 
(FUNCTION FLAG OFF 
(MORE SHORTS? 

;YES ! 

(NO. 

(TRY 4 
(DIRECTIONS 
(GET SHORT # 

(AND DIRECTION 
(SAVE IT 
(GET SHORT « 

(AND DIRECTION 
(FIND OUT 
(WHERE THE 
(SHORT WILL 
(BE NEXT 
POSITION. 
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BEQ 30TDIR 

;YES! IT'S OK‘ 


LDA 

STRHOR 

NXTTRN DEC TRIES 

;HORE DIRECTIONS? 


oEC 


flrll KILLSH 

jNOl 


SSL 

#4-1 

LDX TRIES 

{GET NEXT 


STA 

3X 

IDA DJRSAV 

{TRIAL DIRECTION 


LDA 

STRH6T 

CIO 



SEC 


ADC DADO,X 



SBC 

#13 

UNO S3 



STA 

SY 

STA DIRSAV 


FJNDCL 

LDX 

D 

JHP TRYMOV 

{AND TRY TO HOVE 1 


LDA 

3X 

GOTDIR LDX 3H0RTN 

{GET SHORT S 


etc 


LOA PLOTX 

{ SAVE ALL 


ADC 

3X0 ,X 

STA SHORT;. ,X 

{NEW SHORT 


sta 

Sa 

IDA PLOTY 

{POSITION 


STA 

PLOTX 

SIA SHORTY,X 

{AND DIRECTION 


LDA 

SY 

LOA DIRSAV 

{VALUES! 


CLC 


STa SH0RTD,X 



ADC 

SYD,X 

JMP NXTSH 

;DU NEXT SHORT 1 


STA 

SY 



STA 

PLOTy 

: THIS ROUTINE GENERATES NEW 


JSR 

PLOTCL 

; SHORTS AT THE PROPER 

TIME IF 


LDY 

#0 

j ANY ARE INACTIVE. 



LDA 

(LO),Y 




AND 

BITSON.X 

TRYSHO IDA SHTIM2 

{READY T 0 START ONE 0 


CMP 

C0L0R1,X 

BE3 TRYSH2 

{YES' 


BEQ 

FINDC2 

■JHP 6ETSTK 

;NO! 


CMP 

C0L0R2.X 

TRYSH2 LDA 3HT1M1 

{RESET THE 


ONE 

FJNDCL 

STA 3HTIM2 

{SHORT TIMER 


LDA 

#0 

LDX S3 

{SEARCH FOR 


STA 

TD 

3HSCAN LDA 3H0RTF,X 

;INACTIVE SHORT 


JMP 

F0UND2 

BEG STRTSH 

{GOT ONE 1 n 

FINDC2 

LDA 

D 

DEX 



STA 

TD 

BPL 3H5CAN 



JSR 

OECD 

.JHP I3ETSTK 

{NONE FOUN 

FC2A 

JSR 

SRCHLC 

STRTSH SIX HOLDSX 


CMP 

C0L0R1,X 

STRTSX LDA RANDOM 

;RANDOM SHORT X 


BNE 

FC2B 

CMP Si 68 


JSR 

SRA8EM 

BOS STRTSX 



JMP 

FINDC2 

STA plot; 


FC2B 

CMP 

C0L0R2,X 

3TRTSY LDA RANDOM 

{RANDOM SHORT Y 


BNE 

FC2C 

AND S47F 



JSR 

3RABEM 

CMP S35 



JMP 

OUTLIN 

BCS STRTSY 


FC2C 

JSR 

1NCD 

STA FLUTY 



JHP 

FC2A 

JSR PLOTCL 


F0UND2 

LDA 

#0 

' LDY S8 



STA 

TRIES 

LDA BITSON.X 



JSR 

DECD 

AND (LO),Y 


FND2A 

JSR 

SRCHLC 

CMP COLOR] ,X 

{ON COLOR 1? 


CMP 

colors,; 

ONE STRTSX 

;NO, TRY AGAIN 1 


BNE 

FND2B 

LDX HOLDSX 



JSR 

G'RABEM 

LOA PLOTX 

{SAVE ALL 


•JMP 

FGIJND2 

STA SHORT;,; 

{SHOR 1 

FND2B 

LDA 

TRIES 

LOA FLUTY 

{PARAMETERS 


CLC 


STA SHORTY,; 



ADC 

#1 

LDA RANDOM 



STA 

TRIES 

AND S3 



CMP 

#3 

sta shortd,; 



BEQ 

FINDCl 

LDA S! 

{TELL PROGRAM 


JSR 

INCD 

STA SHORTF,X 

{SHORT IS ALIVE! 


JMP 

FND2A 

JHP GETSTk 

{LOOP BACK 

FINDCl 

LDA 

D 

i 


STA 

TD 

;SEARCH FOR FILLA6LE AREA 



JSR 

OECD 

< 


FCIA 

JSR 

SRCHLC 

: THIS' SECTION SEARCHES TOR THE AREA TO 


CMP 

uGLORl ,; 

;BE FILLED. IT IS SO COMPLI 

CATLO THAT 


BNE 

FC'B 

;EXPLANATION OF ITS FINER DETAILS 


JSR 

GRABEM 

;WOULO BE ALMOST IMPOSSIBLE WITHOUT 


JMP 

FINDC2 

{WRITING ANOTHER COMPLETE ARTICLE. AT 

FC1B 

JSR 

INCD 

;ANy RATE, IT WORKS. THOSE WITH ANY 


■JMP 

FclA 

{ SPECIFIC QUESTIONS SHOULD WRITE ME, 

OUTLIN 

JSR 

PLSX.SY 

; CARE OF A.N.A.L.O.G. 

1 



LDA 

#8 



STA 

TRIES 

SEARCH LDA S! 


OUT LA 

JSR 

SRCHLC 

STA FILLON 



CMP 

COLOR! ,X 

LDA #0 



BNE 

OUT LB 

STA d 



JSR 

GRABEM 
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JHP 

OUTLIN 

JMP 

ENDMM2 

OUT LB LDA 

TRIES 

TMINY2 CMP MINT 

CLC 


BCS 

ENDMM2 

ADC 

#1 

STA H1NY 

ST A 

TRIES 

ENDMM2 JSR PLOTCL 

CNF' 

#4 

LDY #« 

BEG 

OUTLD 

LDA BITOFF,X 

JSft 

1NCD 

AND 

C L 0 ) , f 

JMP 

OUT LA 

ORA COLORS,X 

GUILD JSR 

LOCTX'i 

STA 

(LO),Y 

GUTLD2 CMP 

COLORS,X 

RTS 


BNE 

OUTLE 



JSR 

FILL 

{FILL ROUTI 

1NE 

LDA 

M 



ST A 

FILLON 

;AS WITH THE 'SEARCH 

RTS 


{FILL SUBROUTINE IS 1 

OUTLE JSR 

INCD 

{EXPLAIN HERE. THIS 

JSR 

SRCHLC 

{DIFFERENT FROM THE 1 

JMP 

OUTLD2 

{ROUTINE, AS IT WILL 

SRCHLC LDx 

TD 

{THAT IS OUTLINED IN 

LDA 

SX 

■ 


CLC 


FILL LDA 

#0 

ADC 

SXD,X 

STA 

AUDC2 

ST A 

Ta 

STA 

AUDC3 

STA 

PLOTX 

LDA, 

MAXY 

LDA 

St 

SEC 


CLC 


SBC 

MINT 

ADC 

SYD,X 

STA 

FILFRQ 

STA 

T'Y 

LDA 

MINX 

STA 

PLOT v 

SEC 


LOCTXY LDA 

PLOTX 

SBC 

#: 

CMP 

#159 

STA 

MINX 

Bus 

NOREAO 

STA 

F.X 

LDA 

PLOTY 

LDA 

MI NY 

PY 

CMP 

#85 

STA 

BCS 

NUREAD 

SEC 


JSR 

PLOTCL 

SBC 

#; 

LDY 

#6 

STA 

MINT 

LDA 

(LO),r 

LDA 

MAXX 

AND 

BITSON.X 

CLC 


RTS 


ADC 

#1 

NOREAD LDA 

#e 

STA 

mxx 

LDX 

#0 

LDA 

MAXY 

RTS 


CLC 

GRABEM LDA 

TD 

ADC 

#! 

STA 

D 

STA 

MAXY 

LDA 

TX 

LDA 

#0 

STA 

SX 

STA 

SCTALY 

LDA 

TY 

CLRC2T CDA 

#0 

STA 

3Y 

STA 

C2TALr 

RTS 


LOCLP1 JSR 

LOCATE 

JNCD LDA 

TD 

CMP 

#2 

CLC 


BNE 

LGCLP] 

ADC 

#1 

L0CLP2 INC 

C2TALY 

AND 

#3 

JSR 

LOCATE 

STA 

TD 

CMP 

#2 

RTS 


BEG 

LUCLP2 

DECD LDA 

TD 

AND 

#1 

SEC 


BNE 

CLRC2T 

SBC 

#1 

LDA 

C2TALY 

AND 

#3 

GIF 

#1 

STA 

TD 

BEG 

FILLIT 

RTS 


JSR 

LOCPRU 

PLSXSY LDA 

SX 

BEG 

CLRC2T 

oTA 

PLOTX 

FlLi.IT LDA 

Fx 

CMP 

ffcXX 

STA 

PLOTX 

BCC 

TMINX2 

LDA 

Fy 

STA 

MAXX 

STA 

PLOTY 

■IIP 

CKYMM2 

JSR 

PLOTCL 

TMINX2 CMP 

MINX 

LDY 

#8 

BCS 

CKYMH2 

LDA 

<L0M 

STA 

MINX 

ORA 

COLORS,X 

CKYPM2 LDA 

SY 

SlA 

(LO),Y 

STA 

PLOTY 

INC 

SCTALY 

CMP 

MAXY 

JSR 

LOCATE 

BCC 

TMINY2 

CMP 

#0 

STa 

MAXY 

BEG 

FILLIT 


SUBROUTINE, THE 
Aft TOO COMPLEX TO 
PILL iS ENTIRELY 


jTURN OFF 
{SOUND CHATTELS 
|2 AND 3. 
{INITIALISE 
;THE FILL 
{SOUND 
{FREQUENCY. 
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AND HI 
6NE CLRC2T 
LOA Hi 
31A C2TALY 
FOLLOW JSR LOCATE 
CMP t)8 
BEG L0CLP3 
AND Hi 
BNE CLRC2T 
INC 02 'IaLy 
JMP FOLLOW 
L0CLP3 LDA C2TALV 
(TIP HI 
BNE LQCLP4 
■JMP CLRC2T 
L0CLP4 JSR L0CPRV 
CMP SIT SON,X 
BE3 PILL!1 
JMP CLRC2T 
LOCATE LDA FX 
CLC 
ADC HI 
STA EX 
CMP HAXX 
BNE SfOFX 
LDA CURLO 
CLC 

ADC SC!ALT 
STA CURLO 
LDA CURH1 
ADC H8 
STA CORK! 

LDA H« 

SlA SCTALY 
LOA MINX 
STA FX 
LOA ne 
STA C2TALY 
LDA H$86 
STA AUDC1 
LDA FILFRQ 
STA AUDF1 
BEQ NUFFDC 
DEC PJLFRQ 
NOFFDC LDA FY 
CLC 

ADC HI 
STA F“ 

CMP MAX'! 

BEQ FI LEND 
LDA FX 
CUP MINX 
BNE STOFX 
PLA 
PLA 

JMP CLRC2T 


FI LEND 

PLA 



PLA 



RTS 


STOFX 

LDA 

PX 


STA 

PLOTX 


LDA 

tv 


STA 

PLOTY 


JSR 

PLOTCL 


LDY 

He 


LDA 

8ITS0N,X 


AND 

(,lO> ,r 


CMP 

COLORS',X 


BNE 

NOT C2 


LDA 

bitson.x 


ura 

(LO>,r 


STA 

(Lu),y 


INC 

SCTALY 


LDA 

H2 


RTS 


N0TC2 

CMP 

COLOR!,X 


BNE 

NOT Cl 


LDft Hi 
RTS 
CMP HO 
BNE C3 
RTS 

LDA H3 
RTS 

LOCPRV LDA FX 


NOT Cl 


C3 


NOLOCP 


STA PlOTX 
LDA FY 
SEC 
SBC HI 
CMP MINT 
SEQ NOLOCP 
STA PLOT> 

JSR PLOTCL 

LDY HB 

LDA BITSOFT,X 
AND (LOM 
RTS 
LDA m 

i r»y 
Li/A 

RTS 


ne 


jvBI ROUTINE 


iNTRPT LDA KEY 

IS SPACE BAR 

CMP t$2! 

PRESSED? 

BNE NOPRES 

NO, CHECK FOR PAUSt. 

LDA H3FF 

clear dot 

STA KEY 

key CODE, 

LOft PAUSE 

COMPLEMENT 

EOR trtFF 

THE PAUSE 

STA PAUSE 

FLAG, 

NOPRES LDA PAUSE 

ARE WE P AUSED : ' 

BEQ NGPAUS 

NO 

JMP XI TUB'D 

PAUSED, NO V'BI! 

NOF'AUS LDA BSCNT 

MORE BUMP SOiJNO? 

BMI NOBS 

NO. PROCESS TIMER. 

ORA WAG 

MIX VOLUME W1fH 

STA riUDCH 

PURE TONE. 

lda wee 

SET UP BUMP 

STA AoDFH 

SOUND FREQUENCY 

DEC BSCNT 

AND DECREMENT COUNT. 

NOBS lDA TIMER 

TIMER DOWN TO 2ERG? 

BEQ NODES 

YES, DON T DECREMENT. 

DEC TIMER 

DECREMENT TIMER. 

NflDEC LDA 3HTIM2 


SEQ N0DEC2 


DEC sHTIMi 


BNE NODEC2 


DEC SHTIM2 


H0DEC2 LDA FILLON 

ARE WE PILLING? 

SEQ NOFIlL 

NO, DO REST OF VBi. 

JMP XI TUB'D 

YES, EXIT OBI 

NOFILL LDA He 

CLEAR OUT 

STA DEADF6 

DEAD FLAG 

STA H5H0RT 

AND SHORT HIT. 

LOA P1PL 

HAS PLAYER i 

AND H1BC 

HIT.PLAYER 2/3? 

BEQ NOHITS 

NO, IT'S OK 

INC HSHGfil 

YES'!' 

NOHITS lDA P{PL 

WAS PLAYER 1 

and mi 

hit player e? 

BEQ NOHITP 

NO 1 

INC DEAOFS 

YES 1 ! 1 

NOHIT? lDA P0PF 

has Player e 

and we2 

HIT COLOR 2? 

BEQ NOHITL 

NO! 

INC DEaDFG 

YES ! !' 

NOHITL STA HiTCLR 

CLEAR COLLISION. 

LDA HO 1 -'TIM 

MOVEMENT TIMER ZERO? 

BEQ NOMOEC 

YES, DON'T DECREMENT. 

DEC rltfJTIM 

DECREMENT TIMER. 

NGHDEC LDA 3MTIM 

STAR MOVE T 5h£R ZERO? 

BEQ mi DEC 

y£S, DON'T DECREMENT. 

DEC :SHTIH 

DECREMENT TIMER. 





PAGE 188 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


fill DEC LDA 31 ARC" 
BEQ STARuT 
DEC 3TARO 
.JMP U8REST 

STflROT EDA til 

STA STmRCT 
LDA STRPOS 
CLC 
ADC 81 
CHP 87 
BNE STOSTP 
LDA #8 

STOSTP STA STRPOS 

UBRE3T lDt STRPOS 
LDX STRHGT 
LDA m 
STA Pl&-i 
STA PLU+8,X 
LDA STARS],v 
STA PL8,X 
LDA STARB2,? 
STA PL8+! ,X 
LDA STARBS.T 
STA PUH2.X 
LDA STARBS.v 
STA PL0+3,X 
LDA 3TAR85,t 
STA PUH4,X 
LDA STAR86.Y 
STA PL845.X 
LDA STARS?,T 
STh PL0+6.X 
LDA STARBB,Y 
STA PL8+7.X 
LDa 3TRH0R 
STA HPOSP0 
LDA SHOOPP 
BNE ENDVBi 
LDA PX 
CLC 

ADC 84? 

ST A HPiJSPI 
LDa 0 y 
ClC 

adc ie 

T AX 

LDA 86 
STA PL!-3.X 
STA PLJ-2.X 
Sift PLH2.X 
STA PU+3.X 
LDA 8348 
STA PL!-3,X 
STa PL• +! ,X 
LDA friAfe 
STA PU,X 
LDa N0CCH6 
BNE ENDVBI 
INC CuLFtl! 


{STAR ROT. TIMER ZERO'' 
;rES, ROTATE STAR! 
jDECREHEN 1 TIMER 
;AND SKIP ROTATION, 
;3ET ROT. TIMER 
; T 0 1 

•INCREMENT 
;STAR ROTATION 
iCOUNTER, 

;ALLOW HILT 8-6. 

:ROT. COUNT OK 
;ZERO ROT. COUNTER. 

;SATIE POT. POS. 

;THIS SECTION 
;DRAWS THE STAR 
5 IN PLATER 3 
{MEMORY USING 
;THE TABLES 
;•STARS!" THRU 
STARBB'. 


;SET STAR'S 
SHORIZ. POS. 

;OK TO SHOW PLATER-' 
;NO, EXIT OB! 

;SET PLATER'S 
{HORIZONTAL 
j POoi I I iXi 

;DRaW PLATER 
;!N PLATER 3 
{MEMORY 


{COLOR CHANGE OK° 

:NO, EXIT OB! 

S, CYCLE THE COLOR. 


;rE 

THE FOLLOWING ROUTINE USES TWO 
PLAYERS <2 6 3) TO DISPLAY THE 
“SHORTS." EACH PLAvER IS USED 
TO SHOU i SHORTS, SO SOME 
FLICKER MAY BE OBSERVED. 


LDA SHFLIP 
LsR A 
AND 81 
TAY 

LDA CPTSTN.t 
STa CPYST 
LDA SHFLIP 
AND 81 
TAv 

LDA 8PL3/256 


{TOGGLE FLIP 
{MASK FLIP 
;TO EITHER 
;8 OR: 1 
{PUT IN Y 
{AND GET IMAGE 
{TO USE (+/X3 
;GET FLIP. 
{MASK AND 
{PUT IN Y 
{PUT PLAYER 3 


STA DESTH1 

{IN DESTINATION 

LDA 8PL3&255 

{ADDRESS 

STA DESTLO 

;H1 £ LD 

LDA 8! 

{SET DEST 8 

SlA OESTNH 


LDA SHSTRT.r 

{GET START 

STA UBXHLD 

{SHORT 8 

SHORLP LDA 88 


LDX DESTM1 


LD’Y SHYHLD.X 

;6ET LAST INDEX 

LDX 84 

{NOW ERASE 

ERSSHO STA (DESTLO),Y 

{PREVIOUS 

I NY 

{SHORT 

DEX 


BPL ERSSHO 


LDX UBXHLD 


LDA SHURTF.X 

{SHORT ALIVE"" 

BEQ NXTSHO 

{NO 1 

LDA SHORTX.X 

{GET SHORT'S 

LDY SHORTY,/, 
fi r 

;COORDINATES, 

ADC 846 


LDX DESTNM 


STA HP0SP2.X 

{SET HORIZ. POS, 

TYA 


CLC 


ADC 814 


STA SHYHLD.X 

{AND UERTICAL PC 

TAY 


LDX CPYST 


LDA 84 

{NOW COPY 

STA CPYCNT 

{SHORT IMAGE 

3HOCOP LDA SHOIMG.X 

;T0 THE 

STA (DESTLO),Y 

{PLAYER 

INY 


DEX 


DEC CPYCNT 


BPL 5H0C0P 


NXTSHO DEC DESTNM 

{MORE" 5 

BMI UBEND 

;N0, EXIT' 

LDA DESTLO 

{POINT TO 

SEC 

{NEXT PLAYER 

SBC 812B 


STA DESTLO 


LDA DESTHI 


SBC 86 


STA DESTHI 


INC UBXHLD 


JMP SHORLP 

{AND LOOP BACK. 

UBEND JMP XI TUB'D 

;DONE WITH UBI! 


OLIST DB 378,376,176 

DB 580,01SP&255,01SP/256 
DB 30,3D,3D,3D,$D,3D,30,3D,30,3D 
DB 30,3D,3D ,3D,3D,3D ,3D.'ID ,3D,4D 
DB SO,3D,3D,3D,30,3D,SD,3D,4D,4D 
DB 3D,ID,4D,4D,4D,4D,4D,4D,4D,3D 
DB 3D,3D.30,3D,30,3D.30,3D.3D.3D 
DB 3D,3D,30,3D,3D,3D,3D,3D,3D,3D 
DB 30,3D.30,3D,3D,3D,3D,3D,$D,4D 
DB 3D,3D,3D,4D,40.30,40.31),3D,3D 
DB 30,30,3D,3D.50,326.346 

SCDL DU SCullN 
DB 346 
DU SC0LN2 

D8 381,DL!ST&255,DLI3T/256 

TITLDL DB 378,378,376,376,3 78,378 
DB 370,378,370,338,386' 

DU MA3MSG 
OB 378,347 
DU TITLE 
DB 338,346 
DU AUTHOR 
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DB 470,470,430,444 
DU STMSG 
DB $4! 

DU TITLDL 

SCOLIN DB CT,C8,CT,0:01,0,0,8,8,0,0 
DB 0,CC,CU,CR.CC0L,0,8,0,8.8 
3C0LN2 OB CL, CV , CCOL,0,0,0,CS,CC,CO 
db cr.ce.ccol. 0,e,e,e,8,0,8,e 

GGMSG OB 0,0,8,8,8,CG,CA,Cf1,C£,0 
DB 8,C0,Cy,C£,CR,0,fl,8,0,0 
MAGMSG OB 8.8,421,$2E,421,42C,$2F,$27 
DB 8,423,42F,420.438,435 
DB 434,$29,42E,$27,8,8 
TITLE DB 8,0,8.446,449,431:,460,447 
DB 465,472.0,475,470,441,0 
DB 549,469,8,8,8 
AUTHOR OB 0,8,8,4A2,489,8,8,464 

DB 4AF,4AD,8,4A8,4B5,4A4,483,4AF 
DB 4AE,0,0,8 

STMSG OB 0,8,8,8,$F8,4F3TM36 DB 0,0,8,0,4F0,4F2,4E5,4F3 
DB 4F3,0,0,4F3,4F4,4E1,4F2,4F4 
08 0,8,8,8 


ilEVEL TABLES 
TGTLO 
TGTHI 


OB 
DB 
OB 
DB 

STARSP OB 
DB 

KILLFG 08 
DB 

3HTIME OB 
DB 

3H3TRT OB 
3HTHLD DS 
3H01MG OB 
DB 

CPYSTN OB 
DADD DB 
D!RX DB 
D1RY DB 
3H0RTX 03 
SHORTY DS 
3H0RTF OS 
SHORTD DS 


44.16,224,48,243.212,14,4 
248,224,212,224,48.168,112,212 
31,39,44,35,42,48,39,41,42 
46,48,46,47,47,43.48 

4.4.4.3.3.3.2.2.2.2.2.1.1 

1 . 1.1 

0.0,1,0,1,1,8,1,1,1,1,3,0 

1 , 1,1 

7,7,7,6,6,6,5,5,5,4,4,4,3 

3,2,1. 

3,2 

$83,$58,$28,$58,$38 
428,428,4F3,428,426 
4,9 

$£F,2,1 

8,1,0,IFF 

5FF,8,1,8 

4 

4 

4 


2ER01 OB 8 

SCORE DB 0,8,0.8,0,8 

SLLQC DB 8 

CURLO DB 8 

CURHI OB 8 

LEVEL DB 8 

PAUSE OB 8 

HASDRN DB 0 

LOWK OB 8 

HIWK DB 8 

SCTALT OB 8 

LIVES DB 8 


■STAR PLAYER-MISSILE IMAGES 

STARS1 OB $81,$40,$28,$18,$83,$84,$02 
3TARB2 DB $42,$43,$28,$18,508,$04,$C2 
STARB3 OB $24,$24.$13,$18,$83,$C3,$24 
3TARB4 DB $18,418,$1C,51F,5F8,438,$1B 
STaRBS OB. 418,$13,433,4F8,41F,$1C,$13 
3TARB6 DB 424,424,408,488,410,413,424 
3TARB? DB 442,4C2,$04,488,410,$28,$43 
STARES DB 481,402,$84,408,418,$20,448 
STaRCT OB 3 
STRPOS DB 8 
3TRH6T OB 8 
STRHOR DB 8 


3TRLX OB 
3TRLY DB 
THROIR OB 
STRD1R DB 
STRDTX OB 
3TRDTY DB 
3TRSP0 OB 
COLOR! DB 
CQL0R2 OB 
COLORS DB 
SIT SON OB 
BITOFF DB 
BXSTRT OB 
8TSTRT DB 
SXINC OB 
BY INC DB 
BORCNT DB 
80RNIJH DB 
BDINCX OB 
0DINCY De 
BOCNT OB 
PXUC DB 
PrUC OB 
SHQOFF DB 


CKX 
CKY 
IN IX 
INI Y 
MINX 
MINY 

mxx 

HAXY 
REX 
REY 

y 

Y 
:SX 
St 
TX 
TY 
FX 
Py 
TO 
D 

BSCNT OB 
FILFRQ DB 
TRIES OB 
FILLON DB 
C2TALY OB 


OB 

DB 

OB 

DB 

OB 

DB 

OB 

DB 

OB 

DS 

OB 

DB 

OB 

DB 

OB 

DB 

OB 

DB 

OS 

DB 


0 

8 

0 

8 

1,1,0,255,255,255,8,1 

8,1,1,8,1,255,255,255 

4 

448,430,404,401 
438,$20,$88,482 
4C8,43B.48C,483 
4C8,430,$8C,$83 
43F.4CF,4F3,4FC 
0,158.153,0 
8,8,84,84 
1,8,255.8 
0,1,8,255 
159,85,159,35 


NOCCHG DB 

8 

OEDBRT OB 

0 

3TKHLI) DB 

8 

RDRCOL DB 

0 

REDIR 

DB 

8 

LGTHY 

OB 

8 

TIMES 

OB 

0 

CKV 

08 

8 

ckvx 

DB 

8 

DRAWFG 

OB 

0 

M0V1X 

OB 

8 

XD 

OB 

0,8,8,0 


DB 

8,8,e,l 


OB 

8,8,8,255 


DB 

8,8,8,8 

TO 

OB 

8,8,8,8 


DB 

8,8,8,8 


DS 

0,0, 0,0 


DB 

8.1,255,8 

0,1,8,255 

SxD 

OB 

SYO 

OB 

255,8,1,8 

DECIMAL 

DB 

2ER02 

DB 

0 

RIVALS 

OB 

0,9,0,3,39 

LOCALS DS 

1,18,180,2: 

DIR 

DS 

256 

LG'TH 

DS 

254 


8,0,8,8,8 


END 46080 




Graphics Mode 6 (2 colors-2025 bytes) & Mode 7 <4 colors-3945 bytes) 








































































































































































Graphics Mode 3 (4 colors-273 bytes) & Mode 0 ( 
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NOTE: Graphics Mode 0 is a text mode full-screen display only. 
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